Select Code to Download

$ perl -MData::Dumper -le '$f = "9YT"; $$f = "foo"; print Data::Dumper
+::Dumper(\%main::)'
$VAR1 = {
...
          '9YT' => *{'::9YT'},
          # snip
        };