use Net::SMTP::TLS; 
my $mailto = '7578690817@vtext.com';
my $mailer = new Net::SMTP::TLS( 
'smtp.gmail.com', 
Hello => 'smtp.gmail.com', 
Port => 587, 
User => 'fanny.piggs@gmail.com', 
Password=> 'PASSWORD'); 
$mailer->mail('fanny.piggs@gmail.com'); 
$mailer->to("$mailto"); 
$mailer->data; 
$mailer->datasend("Sent from perl!"); 
$mailer->dataend; 
$mailer->quit;