#kies <opties>
use utf8;
use Text::ParseWords;
sub kies
{
    my ($msg) = @_;
    my @words = &quotewords('\s+', 0, $msg);
    return $words[rand($#words+1)] || "Je hebt me niks te kiezen gegeven... Of je quote verkeerd, dat kan ook.\n";
}

sub kies_help
{
    my $return;
    $return  = "Laat mij kiezen uit de opties die je aangeeft: kies <opties>\n";
    $return .= "Bv.: kies pizza pasta \"spaghetti bolognese\"\n";
    return $return;
}

1;