#!/usr/bin/perl -w
use strict;
use IO::Socket;

select(IO::Socket::INET->new(PeerAddr => shift, PeerPort => shift) or die "Couldn't connect: $!");
print
  for <>;