#!/usr/local/bin/perl -w
###########################################
# botstart - Start up the pluggable bot
# Mike Schilli, 2009 (m@perlmeister.com)
###########################################
use strict;
use Bot::BasicBot::Pluggable;

my $bot = Bot::BasicBot::Pluggable->new(
    channels => ["#perlsnapshot"],
    server   => "irc.freenode.net",
    nick     => "snapshot-bot",
);

  # 'Seen' module: remembers when and where
  # participants were last seen
$bot->load("Seen");

  # DNS module: responds to "nslookup"
  # messages by looking up IP addresses
$bot->load("DNS");

  # Connect to IRC server
$bot->run();