#!/usr/bin/perl
#

use Net::IRC;

#
#  Create the IRC and Connection objects
#

my $irc = new Net::IRC;

print "Creating connection to IRC server...\n";

my $conn = $irc->newconn(Server   => 'amsterdam.nl.eu.undernet.org',
                         Port     => 6667,
                         Nick     => 'PerlBot',
                         Ircname  => 'I Only Answer to NeoFuture.',
                         Username => 'Neo')
    or die "Can't connect to IRC server $!.\n";


$irc->start;