wasp

#! /usr/bin/perl use strict ;use Bot::BasicBot ;my $bot = Bot::BasicBot->new(    server => "irc.2600.net",    port   => "6667",    channels => ["#hackbbs"],        nick      => "cpan-B",    alt_nicks => ["cpan-B2", "P-R2D2"],    username  => "cpan-B",    name      => "cpan-B",        ignore_list => [qw(dipsy dadadodo laotse)],    charset => "utf-8",     );$bot->run();$bot->said(	who => "Kharec",	channel => "#hackbbs",	body => "Hello, old boy",);