$ perl
use strict;
use warnings;
use Data::Dumper;
my $coderef = sub { print "hello world\n"; };
print Dumper($coderef);
__END__
$VAR1 = sub { "DUMMY" };