my $socket = IO::Socket::INET->new(...)
   or die("Unable to create socket: $!\n");