use Mail::Sendmail;

my %mail = ( To      => 'costas@othermedia.com',
			Subject => 'Test message',
          	From    => 'costas@othermedia.com',
         	Message => "This is a very short message"
		  	);

$mail{smtp} = 'my.mail.server'; 			
			
sendmail(%mail) || print "Error sending mail: $Mail::Sendmail::error\n"; 

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