use strict;
use warnings;

use LWP::Simple;

my @list = qw(211.202.1.52:80 61.139.87.132:80 72.13.246.65:3128 203.115.10.11:80 203.115.10.38:80);

foreach my $prox (@list)
{
   $ENV{HTTP_proxy}= $prox;
   my $url = "www.sensationalscentsonline.com";
   print "$prox attempted..\n";
}