#!/usr/bin/perl

use Mail::Sendmail;

%mail = ( To      => 'piptigger@hotmail.com',
          From    => 'pip@binq.org',
          Message => "This is a very short message"
        );
sendmail(%mail) or die $Mail::Sendmail::error;
print "OK. Log says:\n", $Mail::Sendmail::log;