$mailprog = '/usr/lib/sendmail';
.
.
.
sub send_mail  {
    open( MAIL,"|$mailprog -t");
    print MAIL "To: $toemail\n";
    print MAIL "From: $fromemail\n";
    print MAIL "Subject: $subject\n";
    print MAIL "$text\n";
    close (MAIL);
}