Select Code to Download

     use Net::SMTP;
     my $smtp = Net::SMTP->new('smtp.gmail.com',
                           Hello => 'smtp.gmail.com',
...
     $smtp->data();
     $smtp->datasend($email) || die $!;
     $smtp->dataend() || die $smtp->message();

Net::SMTP::_SSL>>> Net::SMTP::_SSL
Net::SMTP::_SSL>>>   IO::Socket::SSL(2.019)
Net::SMTP::_SSL>>>     IO::Socket::IP(0.32)
...
*******
Net::SMTP::_SSL=GLOB(0x1f5e100)>>> EHLO localhost.localdomain
Net::SMTP::_SSL=GLOB(0x1f5e100)<<< 250-smtp.gmail.com at your service,
+ [2a01:7e00::f03c:91ff:fea8:e2c5]