Select Code to Download

package Tie::Hash::PEach;
use strict;
...
my ( $key, $value ) = each %hash;
print "$key => $value\n";