$ perl -e " use feature 'state'; sub Foo { state $block = $_[0]; $block } warn Foo(6); warn Foo(29000); "
6 at -e line 1.
6 at -e line 1.