> perl -e 'print "Yup\n" if 1;' Yup