use Net::SMTP::SSL;
my $mailer = Net::SMTP::SSL->new(
	Host	=> 'smtp.gmail.com',    
    Port    => 465,
    Debug   => 1,
); 

$mailer->auth('username',  'password' );

$mailer->mail('username@gmail.com');
$mailer->to('somewhere@gmail.com');  
$mailer->data;  
$mailer->datasend($data_send);  
$mailer->dataend;  
$mailer->quit;