open (MAIL,"|/usr/lib/sendmail -oi -t") 
      or die "can't fork sendmail: $!";
print MAIL $mailvar or die "\nCan not print to MAIL\n";
close(MAIL) or die "\nCan not close MAIL\n";