Select Code to Download

#! perl -slw
use strict;
...
print Dumper \%hash;

__DATA__

P:\test>junk
$VAR1 = {
...
                  }
        };