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