Select Code to Download

# untested!
my $pid = open my $out, '-|', $cmd or die "Open failed: $!";
...
close ($out);

print "timed out: $timedout\noutput: $str\n";