perl -d -e 'print "X"'