memory/cpu stress test perl script

#!/usr/bin/perl

use strict;

use warnings;

fork for 1 .. 5;

for (1 .. 10000) {

my $a = "xxxxx" x int rand 10_000_000;

my $b = ~$a;

my $c = reverse $b;

}