#bjmsys("xspec - ${tmp}.xcm", $v); 
bjmsys("xspec - ${tmp}.xcm", $v) == 0 or die ("bjmsys failed"); 

open(DAT, "${tmp}xsfit.dat") || die ("Could not open file!");