#Connect to server
my $irc = new Net::IRC;
my $ircconn = $irc->newconn(Nick     =>  $opts{'nick'},
                                      Server   => $opts{'server'},
                                      Port      => $opts{'port'},
                                      Username   =>  $opts{'identd'},
                                      Ircname  =>  $opts{'realname'})
                 or die "Cannot connect to $opts{server}\:$opts{'port'}: $!";
print "Connecting to server...\n";