:~$ perl -e 'use Data::Dumper; print Dumper eval "\$^D=\$^D;do {sub tst {}}"'
:~$