$SENDMAIL_CMD = '|/usr/lib/sendmail -t -oi';

##</code><code>##

sub sendmail{
  my(%mail)= @_;

    open(MF, $SENDMAIL_CMD)  || print "Sendmail Error! ($!)\n";;

print MF<<__MAIL_EOF__;
From: $mail{from}
To:   $mail{to}
Bcc:  $mail{bcc}
Subject: $mail{subject}

$mail{body}

__MAIL_EOF__
}