perl -d -e 1