#!/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
 print $sock "/join #silentcode \n\r"; 
 
 
 
close($sock);