my $client_socket = new IO::Socket::INET ( [stuff] )
  or die && return ( [other stuff] );