my $s=IO::Socket::INET->new(...) or die "Can't bind : $IO::Socket::errstr\n";