Select Code to Download

use Data::Dumper;
print Dumper $sub_ref; # prints $VAR1 = sub { "DUMMY" };

$ perl
use strict;
...
print Dumper($coderef);
__END__
$VAR1 = sub { "DUMMY" };

$ perl
use strict;
...
            use strict 'refs';
            print "hello world\n";
        };