Untitled

use IO::Socket::INET;

$server = "irc.esper.net";
$port = 6667;
$nick = "Perl";
$user = "Perl";
$name = "Perl";
print "lol";
my $fd = new IO::Socket::INET (PeerAddr => $server,
                           PeerPort => $port,
                           Proto => "tcp",
                           );
print $fd "NICK $nick\r\n";
print $fd "USER $user \"\" \"\" :$name\r\n";
while ($in = <$fd>) {
   if ($in =~ /^PING (:[^ ]+)$/i) {
      print $fd "PONG :$1\r\n";
   }
}