Select Code to Download

system($program,$outfile) == 0
  or die "$program $outfile failed: $?";

print -x $program . "\n";
open my $fh, '<', $outfile or die $!;