From the synopisis of Email::Send::SMTP::Gmail:

use strict;
use warnings;
 
use Email::Send::SMTP::Gmail;
 
my ($mail,$error)=Email::Send::SMTP::Gmail->new( -smtp=>'smtp.gmail.co
+m',
                                                 -login=>'whateveraddr
+ess@gmail.com',
                                                 -pass=>'whatever_pass
+');
 
print "session error: $error" unless ($email!=-1);
 
$mail->send(-to=>'target@xxx.com', -subject=>'Hello!', -body=>'Just te
+sting it',
            -attachments=>'full_path_to_file');
 
$mail->bye;
[download]