Select Code to Download

#!/usr/bin/perl
use strict;
...
{
  print "key:$key, value:$hash{$key}\n";
}

key:key1, value:value1