#!/usr/bin/perl

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

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

open FILE, "<list.txt" or die $!;

while (my $line = <FILE>) {
    my $proxy = "http://".$line;
    $ua->proxy('http', $proxy);
    my $response = $ua->get('http://google.com');
    if ($response->is_success) {
        print $line;
    } else {
    }
}

print "\n[] Complete list!";

close(FILE);