Select Code to Download

perl -e 'use constant foo => { a .. z }; print "$k : $v \n"  while ($k
+,$v) = each %{&foo};'

perl -e 'use constant foo => { a..z }; *foo_h=foo; print "$k : $v \n" 
+while ($k,$v) = each %foo_h;'