sub qmail_requeue {

   ...
    my $pid = fork;
   ...
    if (not defined $pid) {
      &tempfail ("Unable to fork. (#4.3.0) - $!");
    } elsif ($pid == 0) {
      # In child.  PUT THIS PART IN AN EVAL BLOCK
      eval {
        close EIN;
        ...
      }
    } else { # in parent
   ...