sub sendmail {
  my ($to, $from, $subject, $body) = @_;
  open (LMAIL, "|usr/sbin/sendmail -t");
  print LMAIL("To: $to\n");
  print LMAIL ("From: $from\n");
  print LMAIL ("Subject: $subject\n");
  print LMAIL ("--------------------\n\n");
  print LMAIL ("$body\n\n");
  print LMAIL ("-- \nSent from $ENV{REMOTE_ADDR} using $0 on $ENV{HOSTNAME}\n");
  close LMAIL;
}