Help for this page

Select Code to Download

Select or download this

Memory: perl -e 'push @_,"x"x1024 while 1'
CPU:    perl -e '$_++ while 1'
...
Reads:  perl -MFile::Find -e'find(sub{@ARGV=$_;1while<>},"/")while 1'
MemUse: perl -e '$_="ab"x(8*1024*1024);tr/ab/ba/ while 1'
Swap:   perl -e 'while(1){push @_,"x";for(@_){$_="x$_"}}'

Select or download this

perl -MFile::Find -e 'fork;fork;find(sub{@ARGV=$_;1while<>},"/")while 
+1'