use Mail::Sendmail;


  %mail = ( To      => 'you@there.com',
            From    => 'me@here.com',
            Message => "This is a very short message"
           );


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


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