e.pl

#!/usr/bin/perl

use strict;
use warnings;

my $x = 12345;
my $i = 1;

for ($i; $i < 6; $i++) {
    my $j = 0;
    for ($j; $j < int(rand(50)) + 20; $j ++) {
        $x++;
        print "SecRule ARGS|ARGS_NAMES|REQUEST_COOKIES|REQUEST_COOKIES_NAMES " .
            "\"\@streq foo\" \"id:$x,phase:$i,deny,auditlog,t:none\"\n"
    }
}