sub dispatch {
   open(MAILPIPE,"|$mailer");
      print MAILPIPE "To: $recip\n";
      print MAILPIPE "From: $fromaddr\n";
      print MAILPIPE "Subject: $subject\n";
      print MAILPIPE "Date: $date\n";
      print MAILPIPE "$envid\n" if $envid;   #here
      print MAILPIPE "X-Mailer: $xmailer\n";
      print MAILPIPE "$mailmessage\n";
   close(MAILPIPE);
}

&dispatch unless $mailer eq "failed";