Select Code to Download

open HANDLE, 'testhash.txt' or die "Can't open: $!";
my $data = <HANDLE>;
close HANDLE;
...
foreach my $key (keys %hash) {
   print "$key $hash{$key}\n";
}