Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"sub S { return uc $_[0]; }
...
 dd \%hash;
"
{ x => \"FOO", y => \"BAR" }