...
close $in;
close $out;
waitpid($pid, 0);