Select Code to Download

use strict;
use IPC::Open3 ;
...
    }
}
close(FH) ;

open OUT, ">/tmp/out.tmp" or die "Can't open OUT" ;
$pid = open3( $wfh ,\*OUT, $efh, $cmd );
...
while (<OUT>) {
   print FH $_ ;
}