#!/usr/bin/perl
use POE;
use warnings;
use strict;


my $bot = Perlbot->new (server => 'swiftco.dal.net', channels => ['#randomtestingchannel']);

$SIG{'INT'} = 'Handler';
$SIG{'TERM'} = 'Handler';

sub Handler {
$poe_kernel->signal($poe_kernel,'POCOIRC_SHUTDOWN');
};

$bot->run;

package Perlbot;
use base qw(Bot::BasicBot);