use strict;
use warnings;
use MIME::Lite;

my $msg = MIME::Lite->new(
 From     =>'bob@gmail.com',
 To       =>'bob@gmail.com',
 Subject  =>'test'
);

MIME::Lite->send('smtp', 'smtp.googlemail.com', Port=>'465', Timeout=> 60,
 Debug=>1, AuthUser=>'bob', AuthPass=>'123456');
$msg->send();