Help for this page

Select Code to Download


  1. or download this
    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
  2. or download this
    Expect crash1073700000
Expect crashGlobal symbol "$abc" requires explicit package name at (ev
+al 1073741769) line 1.