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

$threads = 10; #Кол-во потоков
$ml = 'list.txt';  #Список сайтов
$fname = 'checked.txt'; #Проверенные

my @acc : shared;
$ua = LWP::UserAgent->new;

open (ACS, "<$ml") || die("Could not open list file!");


Next:
@acc = acc();

$time = time; 
$start = localtime;
printf "Started at $start\n";

for(0..$threads) {$trl[$_] = threads->create(\&Brut, $_);}
for(@trl) { $_->join; }

sub Brut
{
	while(@acc)
	{	
		{
		lock(@acc);
		$acc = shift @acc;
		}
		my $res = $ua->get( "http://pr-cy.ru/tools/gpr/gpr.php?l=$acc" );
		$res = $res->as_string;

		if($res =~ /ETag: "(.*)-44069770e1d00/)
			{
			open(FILE, ">>$fname") || die("Could not open $fname\n");
			 switch ($1) 
					{
					case "2380a7-ce"	{ print FILE "1" }
					case "2380ad-cf"	{ print FILE "2" }
					case "2380af-d2"	{ print FILE "3" }
					case "2380b1-d6"	{ print FILE "4" }
					case "2380b3-d1"	{ print FILE "5" }
					case "2380b5-d3"	{ print FILE "6" }
					case "2380b7-cd"	{ print FILE "7" }
					case "2380b9-d2"	{ print FILE "8" }
					case "2380bb-d1"	{ print FILE "9" }
					case "2380aa-d4"	{ print FILE "10"}	
					else 				{ print FILE "0" }	
					}
			print FILE " : $acc\n";
			close(FILE);
			 
			}

	}
}

$time = time-$time;
$end = localtime;
printf "Finished at $end\n";
printf "Time elapsed: $time sec\n";

sub acc
{
	my (@mas);
	while (<ACS>){
	push @mas, $_;
	last if (@mas == 400);
	}
	chomp @mas;
	return @mas;
}