Select Code to Download

>perl -wle"$r=[]; print eval { %$r || 1 }

>perl -wle"$r=[]; print scalar(() = eval { %$r || 1 });
0