Help for this page
perl -e'while(1) {$x++}'
perl -e'$x=" " x 1024 x 1024 x 256; while(1) { $x=~s/ /./g; $x=~s/./ / +g;}'