#my $mailprog = '/usr/lib/sendmail -oi';
#my $mailprog = '/usr/lib/sendmail -oi -t';
#my $mailprog = '/usr/sbin/sendmail -oi -q -t';
# FUNCTION:  open_sendmail_pipe($fh, $mailprog)
 # my ($fh, $mailprog) = @_;
  #       $result = open $fh, "| $mailprog"
    #$result = open $fh, "| $mailprog";
  #die "Can't open $mailprog\n" unless $result;
  # open_sendmail_pipe(\*MAIL, $mailprog);
   #close (MAIL) || die "close mailprog: \$?=$?,\$!=$!";