use IO::Socket;

fork;

$server = "irc.stealthirc.net";
$port = 6667;
$nick = "DemPerls";
$user = "hurr";
$name = "hurr";

$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";
   }
}