Select Code to Download

#!/usr/bin/perl -w

...
}

print Dumper(\%hash); # because that's how it's supposed to be used ;)