my $sock = IO::Socket::INET->new(Proto => 'tcp', Blocking => 0)
  or die "Socket error: $!\n";

my $iaddr   = inet_aton($remote) 		|| die "no host: $remote";
my $paddr   = sockaddr_in($port, $iaddr);

my $ret = connect($sock, $paddr);
if (!$ret && ! $!{EINPROGRESS}) {
  die "Connect error: $!\n";
}
# then select(), etc.