#!/usr/bin/perl


package main;

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

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

sub Handler {
$bot->shutdown('Leaving.');
};

$bot->run;

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