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