$ret = `echo dog <NUL`;
$ret=`copy c:\\perl_test\\test.sas c:\\perl_test\\test_new.sas <NUL`;