use IO::Socket;

my $socket = IO::Socket::INET->new ( PeerAddr => 'irc.majestic.net', PeerPort => '6667', Proto => 'tcp' );

while (<$socket>)
{
    print $_;
}