my $ua = LWP::UserAgent->new; 
$ua->agent('Mozilla/8.0');

for my $p (@prx){
    print "Current proxy:$p\n";
    $ua->proxy(['http'], $p);
     # Use this UA/Proxy to fetch something....
}