use Net::IRC;
$irc = new Net::IRC;
$conn = $irc->newconn(
        Nick => 'Nikos',
        Server => 'nini.irc.gr',
        Port => 6667,
        Ircname => 'me');
$conn->add_global_handler('376', \&on_connect);
$irc->start;

sub on_connect { print STDERR "connected\n"; }