Select Code to Download

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

{
  package foo;
...
                  use strict 'refs';
                  print "hello world\n";
              };