Select Code to Download

#!/usr/bin/perl
use warnings;
...
waitpid($pid, 1);
# It is important to waitpid on your child process,  
# otherwise zombies could be created.

#!/usr/bin/perl 
use warnings;
...

my $result = <OUT>;
print $result;