Help for this page
Select Code to Download
Select
or
download this
>perl -le"$cb = sub {1;}; print $cb->()" 1