use strict;
 use warnings;
 use Net::SMTP::TLS;
 my $mailer = new Net::SMTP::TLS(
        'smtp.gmail.com',
        Hello   =>      'localhost',
        Port    =>      25, #redundant
        Timeout =>      30,
        User    =>      'kimuthuselvan@gmail.com',
        Password=>      '********');

 $mailer->mail('kimuthuselvan@gmail.com');
 $mailer->to('kimuthuselvan@hotmail.com');
 $mailer->data;
 $mailer->datasend("Sent thru TLS!");
 $mailer->dataend;
 $mailer->quit;