use IO::Socket;

$sock = IO::Socket::INET->new(
Proto     => "tcp",
PeerAddr  => $ARGV[0],
PeerPort  => $ARGV[1],
);
unless ($sock) { die "Cannot connect to $ARGV[0] $ARGV[1]" }

$sock->autoflush(1);

print $sock "USER test 0 0 test\n";
print $sock "NICK tesaflabla\n";

while ( <$sock> ) {
    print "$_";
}