Unnamed

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

close($sock);