Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
while ( (my $key, my $value) = each %hash) {
    print "$key = $value\n";
}

k2 = v2
k1 = v1
k3 = v3