use strict;
use warnings;
use Email::Send::SMTP::Gmail;
my $mail=Email::Send::SMTP::Gmail->new( -smtp=>'smtp.gmail.com',
                                        -login=>'IHipschman@gmail.com',
                                        -pass=>'mypassword');

$mail->send(-to=>'IHipschman@yahoo.com', -subject=>'Hello!',
            -body=>'Just testing it<br>Bye!',-contenttype=>'text/html');
$mail->bye;