#!/usr/bin/perl -w
use strict;
my $scheme='https';
open(IN, $ARGV[0]) or die "no\n";
my @ary = <IN>;
use LWP::UserAgent;
require LWP::UserAgent;
 
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->proxy(['http', 'https'], 'http://localhost:8080/');

foreach my $i (@ary) {
    chomp($i);
    print "Requesting $scheme://$i\n";
    my $response = $ua->get("$scheme://$i");
}