#! /usr/bin/perl -w

use Mail::Sendmail;

%mail = ( To      => 'xxx@gmail.com',
            From    => 'yyy@gmail.com',
            Message => "This is a very short message"
           );

sendmail(%mail) or die $Mail::Sendmail::error;

print "OK. Log says:\n", $Mail::Sendmail::log;