perl -d -e 0