use LWP::UserAgent; use HTTP::Request::Common qw(POST); my %field = ('name' => 'value'); my @rcs; for (1..100) { push @uas, LWP::UserAgent->new; } my $req = POST 'http://server/cgi/script.pl', \%field; for (@uas) { my $html = $_->request($req)->as_string; if ($html =~ /(.*)?<\/return>/s) { push @rcs, "return is $1\n"; } else { push @rcs, "error"; } } my $i = 0; for (@rcs) { print "$i : $_\n"; $i++; }