my $socket = IO::Socket::SSL->new( ...) 
  or die "unable to create socket: $@\n";