use LWP::UserAgent;
use HTTP::Request;
use Parallel::ForkManager;

$ua = new LWP::UserAgent;
$ua->timeout(2);
$ua->agent("Mozilla/6.0");

$pm = new Parallel::ForkManager(10);

open(LIST,"lan.txt");

while (<LIST>) {
	$pm->start and next;
	chomp($_);
	$url = "http://".$_."/index.php";
	$req = HTTP::Request->new('GET',$url);
	$res = $ua->request($req);
	$content= $res->content;
	if ($content =~ /ok/) {
		print $_."\n";
	}
	$pm->finish;
}

$pm->wait_all_children;

close(LIST);

exit;