Select Code to Download

use IO::Socket::SSL;

...
  warn "I encountered a problem: ",
    IO::Socket::SSL::errstr();
}

use Net::SMTP::SSL;
use Data::Dumper;
my $smtps = Net::SMTP::SSL->new("smtp.gmail.com", Port => 465);
print Dumper($smtps);