#!/usr/bin/perl -w
use strict;

# very barbaric way to load test a remote CGI script.

require LWP::UserAgent;

my($hit) = 15; # how many times to hit the script.
my($lwp) = LWP::UserAgent->new();
my($uri) = 'http://www.testmycgi.com/foo.cgi';

$lwp->agent('Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)');

for (my($i) = 0; $i < $hit; ++$i) {

   my($request)  = HTTP::Request->new('GET', $uri);

   my($response) = $lwp->request($request);

   print($response->status_line() . qq[\012]);
}