use IO::Socket::SSL;

my $client = IO::Socket::SSL->new("smtp.gmail.com:465");

if ($client) {
  print $client "GET / HTTP/1.0\r\n\r\n";
  print <$client>;
  close $client;
} else {
  warn "I encountered a problem: ",
    IO::Socket::SSL::errstr();
}

##</code><code>##

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