} else {
#Child
    die "cannot fork: $!" unless defined $child_pid;
    close(READER) or die "can't close READER: $!";
    close(STDIN)  or die "can't close STDIN: $!";
    close(STDOUT) or die "can't close STDOUT: $!";
    close(STDERR) or die "can't close STDERR: $!";