Select Code to Download

$ perl -e '%foo = {}; print %foo, "\n";'
HASH(0x814dc30)

$ perl -e '%foo = {}; print join(",", %foo), "\n";'
HASH(0x814dc30),