TEST=`perl -wle'print "test";  exit  1  ;'`; echo $?;