Select Code to Download

open(my $fh, $0) or die $!;
$gash{$fh} = 'some value';
...
          '*main::_' => 'some value',
          'GLOB(0x18ab6ac)' => 'some value'
        };