use Mail::Send;
$msg = new Mail::Send;
$msg->to('user@host');
$msg->subject('example subject');
$fh = $msg->open('sendmail');
print $fh "Body of message";
$fh->close;