Select Code to Download

>perl -le"%{ $h }; print $h ? 1 : 0"
0
...

>perl -le"sub {}->( %{ $h } ); print $h ? 1 : 0"
1

>perl -le"sub f {}  f( %{ $h } ); print $h ? 1 : 0"
1
...
>perl -le"print( %{ $h } ); print $h ? 1 : 0"

0