% perl -de x
...
main::(-e:1):   x