#!/usr/bin/perl
use strict;
use warnings;


use LWP::UserAgent;

my $url = 'https://tets.test.com/';

my $ua = LWP::UserAgent->new;
for (1..100){
	$ua->default_header('X-Forwarded-For' =>  "2.2.2.2");
	my $response = $ua->get( $url );

	$response->is_success or
		die "Failed to GET '$url': ", $response->status_line;

	print $response->as_string;
}