Select Code to Download

#
#   System Modules
...
use IO::Uncompress::Gunzip qw(gunzip $GunzipError);
use IO::Compress::Gzip qw(gzip $GzipError);
1;

print Dumper(%HASH);

print Data::Dumper(%HASH);