Pensando en Red nada es tan fácil como parece serlo

Web Flood básico en Perl

#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;
use HTTP::Request;
my $i;
for($i=0;$i<10;$i++){
	print("n============== [ ".($i+1)." ] Resultado ========================n");
	&leerUrl;
}
print("n");
sub leerUrl{
	my $ua = LWP::UserAgent->new;
	$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 2000; DigExt)");
	my $url = "http://google.com/";
	my $req = HTTP::Request->new(GET => $url);
	my $i;
	my $ahora = time();
	for($i=0;$i<10;$i++){
		my $response = $ua->request($req);
		if($response){
			my $demora = time() - $ahora;
			print( "n [ ".($i+1)." ] Respuesta recibida  ".$url." en ".$demora." sec." );
			$ahora = time();
		}
	}
	print("n");
}