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

##</code><code>##

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