check

#!/usr/bin/perl -w
use LWP::UserAgent;

my @headers=(
'User-Agent'=>'Mozilla/5.0 (X11; U; Linux i686; ru; rv:1.9.2.6) Gecko/20100628 Ubuntu/10.04 (lucid) Firefox/3.6.6',
'Referer'=>'http://www.rs45.ru/component/k2/item/8-%D1%81%D0%B0%D0%BC%D1%81%D0%BE%D0%BD%D0%BE%D0%B2%D0%B0_%D0%B2%D0%B8%D0%BA%D1%82%D0%BE%D1%80%D0%B8%D1%8F');

open(PROXY,"<proxy.txt");
foreach(<PROXY>)
{
chomp;
($lol,$proxy)=split(/\s\s/); # тут зависит от фромата входного файлика
my $ua=LWP::UserAgent->new;
$ua->timeout(10);
$ua->proxy(['http','https'],"http://$proxy");
my $res=$ua->get('http://www.rs45.ru/index.php?option=com_k2&view=item&task=vote&user_rating=5&itemID=8',@headers);
if($res->is_success){ print $res->content."\n"; }
else { print $res->status_line."\n"; }
#$ua->delay(7/60);

}
close(PROXY);