#!/usr/bin/perl
use IO::Socket;
my $sock = new IO::Socket::INET (
PeerAddr => 'irc.freenode.net',
PeerPort => '6667',
Proto => 'tcp',
);
die "Could not create socket: $!\n" unless $sock;

print $sock "NICK yosyp_perl_test \n\r";
print $sock "USER yosyp yosypsbot yosypsprogram yosypsbotprogram\n\r"; #it takes 4 parms I guess
sleep(5);
print $sock "JOIN #silentcode \n\r";
print $sock "PRIVMSG #silentcode :hello... and goodbye!\n\r";
print $sock "QUIT\n\r";
print $_ while(<$sock>);
close($sock);