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();
}