[code]
#!/usr/bin/perl -w

use LWP::Parallel::UserAgent;
use Time::HiRes qw(gettimeofday tv_interval);
use strict;
###
# Configuration
###

my $nof_parallel_connections = 1; 
my $nof_requests_total = 1; 
my $timeout = 10;
my $maxurls = 2;


my @urls;
my @tmpurls;
my $linkadressen = "links.dat";
my $cnt=0;
my $zufall;

##################################################
# Derived Class for latency timing
##################################################

package MyParallelAgent;
@MyParallelAgent::ISA = qw(LWP::Parallel::UserAgent);
use strict;


## zufaellige url auswahl
open(TXT,$linkadressen);
while (<TXT>)
{
	push (@tmpurls, $_);
	#packe alle urls aus der textdatei in das array @tmpurls
}
close (TXT);

while ($cnt < $maxurls)
{
	$zufall = int(rand(@tmpurls +1)); 
	#print "<<< $zufall >>>\n";
	push (@urls, ($tmpurls[$zufall])); 
	#suche zufaellig eine url aus dem array und haenge das in die url liste
	$cnt++;
}

###
# Is called when connection is opened
###

sub on_connect {
	my ($self, $request, $response, $entry) = @_;
	$self->{__start_times}->{$entry} = [Time::HiRes::gettimeofday];
}

###
# Are called when connection is closed
###

sub on_return {
	my ($self, $request, $response, $entry) = @_;
	my $start = $self->{__start_times}->{$entry};
	$self->{__latency_total} += Time::HiRes::tv_interval($start);
}
sub on_failure {
	on_return(@_); # Same procedure
}

###
# Access function for new instance var
###

sub get_latency_total {
	return shift->{__latency_total};
}
##################################################
package main;
##################################################

###
# Init parallel user agent
###

my $ua = MyParallelAgent->new();
$ua->agent("pounder/1.0");
$ua->max_req($nof_parallel_connections);
$ua->redirect(0); # No redirects

###
# Register all requests
###

foreach (1..$nof_requests_total) {
 foreach my $url (@urls) {
	my $request = HTTP::Request->new('GET', $url);
	$ua->register($request);
}
}


###
# Launch processes and check time
###

my $start_time = [gettimeofday];
my $results = $ua->wait($timeout);
my $total_time = tv_interval($start_time);


###
# Requests all done, check results
###

my $succeeded = 0;
my %errors = ();
foreach my $entry (values %$results) {
	my $response = $entry->response();
	if($response->is_success()) {
	$succeeded++; # Another satisfied customer
	} else {


	# Error, save the message

	$response->message("TIMEOUT") unless $response->code();
	$errors{$response->message}++;
}
}


###
# Format errors if any from %errors
###

my $errors = join(',', map "$_ ($errors{$_})", keys %errors);
	$errors = "NONE" unless $errors;


###
# Format results
###

#@urls = map {($_,".")} @urls;
my @P = (
	"URL(s)" => join("\n\t\t ", @urls),
	"Total Requests" => $nof_requests_total * @urls,
	"Parallel Agents" => $nof_parallel_connections * @urls,
	"Succeeded" => sprintf("$succeeded (%.2f%%)\n",
		$succeeded * 100 / ( $nof_requests_total * @urls ) ),
	"Errors" => $errors,
	"Total Time" => sprintf("%.2f secs\n", $total_time),
	"Throughput" => sprintf("%.2f Requests/sec\n",
		( $nof_requests_total * @urls ) / $total_time),
	"Latency" => sprintf("%.2f secs/Request",
		($ua->get_latency_total() || 0) /
		( $nof_requests_total * @urls ) ),
);

my ($left, $right);

###
# Print out statistics
###
format STDOUT =
@<<<<<<<<<<<<<<< @*
"$left:", $right
.
while(($left, $right) = splice(@P, 0, 2)) {
write;