#!/opt/ActivePerl-5.14/bin/perl -w
use Mail::Sendmail qw(sendmail %mailcfg);

my (%mail, $MailTo, $subject, $message, $from);

$mailcfg{smtp} = [qw(mail.mycompany.com)];
$mailcfg{port} = 25; # default

$MailTo = 'someone1@yahoo.com';
$from = 'someone2@yahoo.com';
$subject = "Test";
$message = "Message Test";

%mail = ( To => $MailTo, From => $from, Subject => $subject, Message => $message);
sendmail(%mail);