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