Select Code to Download

>perl -le"sub f(\%) { print $_[0] }  f(\%h)"
Type of arg 1 to main::f must be hash (not reference constructor) at -
+e line 1, at end of line
...

>perl -le"sub f(\%) { print $_[0] }  f(%h)"
HASH(0x238be4)