my $loop=8;
my $pm = Parallel::ForkManager->new($loop);
my $url = "http://localhost/cgi-bin/session.pl";
my %sessionopts; # must contain same config as apache has

my $sid;
# get sessionID with initial request to session.pl
# ...

for (my $i = 0; $i < $loop; $i++) {
    $pm->start and next;
    my $wait = int((rand)*3000000);
    # pass loop number, random wait time and sessionID in to script
    my $content = "count=$i&wait=$wait&sid=$sid";
    my $requrl = $url.'?'.$content;
    print "sending req $i [$requrl] at ".join(':',gettimeofday)."\n";
    my $req = HTTP::Request->new('GET', $requrl);
    my $resp2 = $ua->request($req);
    $pm->finish;
}

sleep 10; # be sure last req has finished

print "now what is in the session for [$sid]?\n";

my %session;
tie %session, 'Apache::Session::Flex', $sid, {
    %sessionopts
};
print "got session data: ".Dumper(\%session)."\n";