in reply to simple anonymous subroutine and variable interpolation timing question
$ perl -e " use feature 'state'; sub Foo { state $block = $_[0]; $bloc +k } warn Foo(6); warn Foo(29000); " 6 at -e line 1. 6 at -e line 1. [download]