Select Code to Download

$ cat HoH.pl 
use strict;
...
our $HoH;
require 'hash';
print Dumper($HoH);

use strict;
use Data::Dumper;
use vars qw/ $HoH /;
require 'hash';
print Dumper($HoH);