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

my ($mail,$error) = Email::Send::SMTP::Gmail->new(
    -layer =>'ssl',
    -port  =>'465',
    -smtp  =>'smtp.gmail.com',
    -login =>'myemail@gmail.com',
    -pass  =>'mypassword'
);
 
die "session error: $error" if $mail ==-1;
<>
$mail->send(
    -to         =>'myemail@gmail.com',
    -subject    =>'Hello!',
    -body       =>'Just testing it',
    -attachments=>'C:\Users\MyName\Documents\My_IT_Resume.doc'
);
$mail->bye;