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