use Data::Dumper;
$Data::Dumper::Deparse = 1;
my $code = sub { print "hello world\n" };
print Dumper $code;
__END__
$VAR1 = sub {
                  print "hello world\n";
              };