Select Code to Download

foreach my $key ( keys %hash )
{
...
        print $key, ": ",$value, "\n" # or whatever you want to do.
    }
}