my $rsock = new IO::Socket::INET (PeerAddr => blah,
                               PeerPort=> 12345,
                               Proto    => 'tcp',
                              );