use IO::Socket;

my $socket = IO::Socket::INET->new(     PeerAddr => 'irc.twistednet.org',
                                        PeerPort => 6667,
                                        Proto => 'tcp') or die "Cannot Make Socket: $@";
while (<$socket>)
{
        print $_, "\n";
}