IO::Socket::INET 和 IO::Socket::SSL 行都应该进行错误检查.类似的东西:

Both the IO::Socket::INET and IO::Socket::SSL lines should have error checking. Something like:

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

还有:

my $socketssl = IO::Socket::SSL->start_SSL(...)
  or die "Failed to start SSL: ".IO::Socket::SSL::errstr();

虽然我可能会选择 Carp::confess 而不是死.

Although instead of die I might go with Carp::confess.