use Mail::Webmail::Gmail;

my $gmail = Mail::Webmail::Gmail->new( 
            username => 'username', password => password',
        );
$gmail->send_message( to => 'user@domain.com', subject => Test Message', msgbody => 'This is a test.' );