>perl -le"$cb = sub {1;}; print $cb->()"
1