Use it instead of the waitpid call:

foreach my $key(keys %pids){
  close $pids{$key}{'fh'};
}
[download]