perl -MO=Deparse -n -e 'print "file is: ".<>;'