Select Code to Download

#!/urs/bin/perl

...
# Add handlers here...

$bot->start;

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

if (connect( $sock, sockaddr_in($self->port, inet_aton($self->server))
+ )) {
    $self->socket($sock);
...
    $self->error(1);
    return;
}