# CPU consumption loop

$p = 0;   # number of processes (0 => 1 process)
$w = 20;  # amount of work per iteration (20)
$t = 0;   # sec of think time between iterations (0)

for (1..$p) {fork()} while (1) {for($x=0;$x<$w*100000;$x++){sin($x/($x+2))} if($t){sleep($t)}}

##</code><code>##

# Memory consumption loop - defaults consume 1GB in 3 min on i7-620m

$i = 3000;   # size of increase (3000)
$t = 1;      # sec think time between increases (1)
$r = 150;    # time before reset (150)
$c = 5;      # sec before next climb starts (5)

@chars=('a'..'z','A'..'Z','0'..'9','_');
while (1) {
  for(1..int(rand($y))) {$rs.=$chars[rand @chars]}
  for($x=0;$x<$i;$x++){$z[$y,$x]="$rs"x(int(rand($x))*2)}
  $y++;$rs='';sleep($t);if($y==$r){@z='';$y=0;sleep($c)}
}