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