Select Code to Download

perl -Mstrict -wle "my@r;$|++;while($_++<$ARGV[0]){eval sprintf q{my$s
+elf=\%s;push @r,sub{ $self }},$_,$_; if(!($_%100000)){printf qq(%010d
+\r),$_;@r=()}}" 1000000000

Expect crash1073700000
Expect crashGlobal symbol "$abc" requires explicit package name at (ev
+al 1073741769) line 1.