#!/usr/bin/perl -w
use IO::Socket;
$host = "irc.freenode.net";

$remote = IO::Socket::INET->new(     Proto     => "tcp",
                                         PeerAddr  => $host,
                                         PeerPort  => "tcp(6667)",
                  )     || die "cannot connect to httpd on $host";
$remote->autoflush(1);

$username = 'xx';
$nick = 'dsjedfs';
$realname = 'My real name';
$hostname = 'localhost';
$servername = 'irc.freenode.net';

print $remote "USER ${username} ${hostname} ${servername} :${realname}\r\n";
print $remote "NICK ${nick}\r\n";
print $remote "JOIN #test999\r\n";
print $remote "PRIVMSG #test999 :jakas tam wiadomosc\r\n";


while ( <$remote> ) { print  }
close $remote;