Select Code to Download

#!/usr/bin/perl

...
for my $loop(keys %hash) {
  print "keys $loop => $hash{$loop}\n";
}

my($from, $to);
pipe ($from, $to) or die "Oops Pipe: $!\n";
...
$fh{"FROM_CHILD_$loop"} = $from;
$fh{"TO_PARENT_$loop"} = $to;