#furbie
use utf8;
sub furbie
{
    my ($msg, $dbh, $kanaal, $server) = @_, my $return = '', my ($command);
    ($command, $msg) = split(/ /, $msg, 2);
    $command = lc $command;

    if (defined(&{$command}))
    { return $msg = &{$command}($msg, $dbh, $kanaal, $server); }
    else
    { return help('geenchocola'); }
}

sub furbie_help
{
    return "Strip 'Furbie: ' in privegesprekken.";
}

1;