Select Code to Download

if(open($fh, "-|")){
    while( < $fh > ){ $temp.= $_; }
...
    close($fh);
}
exit;

open $fh, "-|";

my $pid = open $fh, "-|";

...
             # the statements after this block!
}
# parent continues ...