#!/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;

##</code><code>##

my $conn = Net::IRC::Connection->new($self, @_);

##</code><code>##

if (connect( $sock, sockaddr_in($self->port, inet_aton($self->server)) )) {
    $self->socket($sock);
} else {
    carp (sprintf "Can't connect to %s:%s!", $self->server, $self->port);
    $self->error(1);
    return;
}