my $sock = IO::Socket::INET->new(...)
   or die(...);