use strict;
use warnings;
use Email::Send::SMTP::Gmail;

my ($mail,$error) = Email::Send::SMTP::Gmail->new(
    -layer =>'tls',
    -port  =>'25',
    -smtp  =>'myserver(not gmail)',
    -login =>'mail@gmail.com',
    -pass  =>'?????'
);
 
die "session error: $error" if $mail ==-1;
$mail->send(
    -to         =>'mail@gmail.com',
    -subject    =>'Hello!',
    -body       =>'Just testing it',
);
$mail->bye;