my @arr = `perl -wT $XXXfile $inp_file $outfile 'param'`;