perl -Mstrict -wle "my@r;$|++;while($_++<$ARGV[0]){eval sprintf q{my$self=\%s;push @r,sub{ $self }},$_,$_; if(!($_%100000)){printf qq(%010d\r),$_;@r=()}}" 1000000000 #### Expect crash1073700000 Expect crashGlobal symbol "$abc" requires explicit package name at (eval 1073741769) line 1.