my $status = $pipe->close; die $! if $$ != $mainpid; #### if ($$ == $mainpid) { $pipe->close or die $!; }