#!/usr/bin/perl
use warnings;
use strict;
use Email::Send::SMTP::Gmail;

my $mail=Email::Send::SMTP::Gmail->new( -smtp=>'gmail.com',
                                        -login=>'z@gmail.com',
                                         -pass=>'wadawada');

$mail->send(-to=>'z@gmail.com',
            -subject=>'Hello smtp test',
            -verbose=>'1',
            -body=>'Just testing it',
     #      -attachments=> 'full_path_2_file',
            );

$mail->bye;