Sample Perl IRC bot using a homemade POE

sub numeric {
    my ($number, $data) = @_;
    given($number) {
        when('1') {
            puts "Hello World!";
        }
    }
}

my $bot = IRC->new('lol.test');
$bot->register('numeric', \&numeric);
$bot->connect();
$bot->main();