#!/usr/bin/perl

use IO::Socket;
use strict;
my $nick = "Spid3rman";
my $login = "Spid3rman";
my $channel = " #Root-Me_Challenge";
my $sock = IO::Socket::INET->new (PeerAddr => "irc.root-me.org",
                  Proto => "tcp",
                  PeerPort => 6667)
    or die "IO::Socket: $!";

print $sock "NICK $nick\r\n";
print $sock "USER $login\r\n";
print $sock "JOIN $channel\r\n";

print 'cmd $ ';

my $line=<STDIN>;
print $sock $line."\n";
while (<$sock>){
    print $_;
}
close ($sock);