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