#!/usr/local/bin/perl

use Mail::SMI;

$mailhost = "localhost";

sub sendmail{

    local($from, $to, $subject, $body) = @_;

    $mobj = new Mail::SMI;
    $mobj->connect("$mailhost", 25) || die $mobj->strerror();
    $mobj->setfrom($from) || die $mobj->strerror();
    $mobj->setrcpt($to) || die $mobj->strerror();

    $MSG = {
    'Date' => $mobj->rfc822_date(),
    'To' => $to,
    'From' => $from,
    'Subject' => $subject,
    'X-AnotherHeader' => 'OK',
    'Body' => $body
    };

    $mobj->setdata($MSG);
    $mobj->sendmail() || die $mobj->strerror();
    $mobj->disconnect();

}

1;