#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

$|++;

my $ua = LWP::UserAgent->new(
	timeout => 30
);

$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)");

for (0..1000) {
	my $req = HTTP::Request->new(
		GET => "https://www.amazon.com/"
	);
	$ua->request($req);
	print "Ok\n";
}