Смотрите. Написал плагин на перле для x-chat

#/usr/bin/perl -w
#


IRC::register("matugalnik", "0.1.2", "","",);
IRC::print"Voices are loaded";
IRC::add_message_handler("PRIVMSG", "ball_info");

sub ball_info 
{
    my $line = shift(@_);
    ($blah, $nick, $host, $pm, $chan, $msg) = split (/ |!|:/, $line, 6);
    if($msg =~/:\!voice/) {
  IRC::command("/say $nick woff-wooooof");
  return 1;
    }
}

по манулу эта хрень должна работать везде, а работает в окне привата только, в чем я ошибся?