#! /usr/bin/perl -w

use Mail::Sendmail;
use Mail::Sendmail qw(sendmail %mailcfg);

$mail{smtp} = qw(imap.googlemail.com);
$mail{port} = 993;
%mail = ( To => 'xxx@gmail.com',
From => 'yyy@gmail.com',
            Message => 'This is a very short message'
           );

if ( sendmail(%mail) ) {
	print "OK.\n";
} else {
	die $Mail::Sendmail::error;
}
print "OK. Log says:\n", $Mail::Sendmail::log;