$ perl -e 'use Data::Dumper; print Dumper eval "sub tst {}"'
$