#!/usr/bin/perl -W

use strict;
use warnings qw(all);

use LWP::UserAgent qw(new);
use LWP::ConnCache;

use Date::Calc qw(Mktime Today Today_and_Now);

my $cache = LWP::ConnCache->new();

$| = 1;

# HTTP User Agent
my $browser = LWP::UserAgent->new;
$browser->default_headers->push_header('Accept-Encoding' => 'gzip, compressed, deflate');
$browser->timeout(15);
$browser->conn_cache($cache);

my $start = Mktime(Today_and_Now);

sub request{
	my ($request, $response, $content);
	
	# Request
	$request = HTTP::Request->new(GET => 'http://board.perl-community.de');
		
	# Request senden
	$response = $browser->request($request);
	
	# Gzipped on the fly ?
	$content = $response->decoded_content;
	$content = $response->content unless $content;
	
	print ".";
}

my ($done, $round) = 0;
my $duration = 10;

while(!$done){
	request();
	
	$done = 1 if ((Mktime(Today_and_Now))-$start == $duration);
	$round++;
}

$cache->drop();
print "\n$round requests in $duration seconds\n";