#!/usr/bin/perl

###################
# A basic irc bot #
###################

use Bot::BasicBot;

$bot = Bot::BasicBot->new(
        server  => "irc.freenode.net",
        port    => "6667",
        channels=> ["#perl"],
        nick    => "bot",
        alt_nicks=> ["bot"],
        username => "bot",
        name     => "bot",
        ignore_list => [],
        charset => "utf-8");

$bot->run();