Select Code to Download

$ perl -MData::Dumper -e '$field = "foo bar"; *$field = 1; print Data:
+:Dumper::Dumper(\%main::)'
$VAR1 = {
          # Cut other variables in output
          'foo bar' => *{'::1'},
        };