#!/urs/bin/perl

use strict;

use Net::IRC;
use LWP::Simple;
use HTML::Parser;
use Data::Dumper;


my $bot = new Net::IRC;
my $connection = $bot->newconn(Nick => 'HAL',
          Server => 'irc.tin.it',
          Port => '6667',
          Ircname => 'some name...',
          UserName => 'HAL'
          ) || die "Can't connect - $!\n";

# Add handlers here...

$bot->start;