perl -wle'use Devel::Peek; { my $f; $f = sub { my $c = shift; print $c; $f->($c-1) if $c }; Dump $f; $f->(3); Dump $f }'