use IO::Socket;
my $sock = new IO::Socket::INET ( PeerAddr => 'localhost', PeerPort => '22', Proto => 'tcp' );
while (<$sock>) { print $_; }
close($sock);