This is a sample bot.

#!/usr/bin/perl


package main;

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

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

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

$bot->run;

package Perlbot;
use base qw(Bot::BasicBot);
[download]

The bot quits IRC correctly, but it just sits there and reconnects back after 5 minutes. How do I shut it down completely?