Select Code to Download

#!/usr/local/bin/perl
use strict;
...
print "<pre>\n";
print Dumper(\%hash);
print "</pre>\n";

$VAR1 = {
 'HKEY_LOCAL_MACHINE' => {
...
  }
}