$status = qx/cat new1 >new/; print "value of status is $status \n";