Anonymous

IRC::add_message_handler("PRIVMSG", "privmsg_handler");

open ( SHOBON"<xchatscripts/Shobon" );
 chomp( @SHOBON = <SHOBON> );
        close SHOBON;

sub privmsg_handler {
   $thingy = $_[0];
   $_ = $thingy;
( $nick, $user, $host, $hook, $channel, $say ) = (m/:(\S+)!(\S+)\@(\S+)\s(\w+)\s(\S+)\s:(.*)/);
  if ($say =~ /^!shobon$/i ) {
         $answer = $SHOBON[rand @SHOBON];
            IRC::send_raw ( "PRIVMSG $channel :$answer\n" );
}
   return 0;
}