$ perl -MData::Dumper -le '$Data::Dumper::Deparse=1; \
print Dumper eval Dumper sub { $x++; print "Hello"; }'
$VAR1 = sub {
            ++$x;
            print 'Hello';
        };