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 =>'hakon.hagland@gmail.com', -pass =>'?????' ); die "session error: $error" if $mail ==-1; $mail->send( -to =>'hakon.hagland@gmail.com', -subject =>'Hello!', -body =>'Just testing it', -attachments=>'test.pdf' ); $mail->bye;