Select Code to Download

$ perl -E'sub x { say [caller(0)]->[0] } x()'
main
$ perl -E'sub x { say (caller(0))[0] } x()'
syntax error at -e line 1, near ")["
Execution of -e aborted due to compilation errors.