use MIME::Lite;
use Net::SMTP;
 
$FROM='james@gmail.com';
$TO='james@hotmail.com';
$subject='TESTING 123';
$SMTPUSER='james@gmail.com';
$SMTPPASS='james1234';
$message_text='testing';
 
my $msg = MIME::Lite->new(From => $FROM,To => $TO,Subject => $subject,Type => 'multipart/alternative'); 
 
my $smtp = new Net::SMTP('smtp.gmail.com:465', Timeout => 15, Debug => 1);
$smtp->auth($SMTPUSER, $SMTPPASS);
$smtp->mail($FROM);
$smtp->to($TO);
$smtp->data($msg->as_string);
$smtp->quit;