use strict;
use warnings;
use LWP::UserAgent;
#Диапазон страниц
my $range = '1-261';
my $output = './hash.txt';

my $ua = new LWP::UserAgent;

my ($i, $j) = split /-/, $range;

for($i ; $i <= $j; $i++)
	{
	 print "Parsing page $i\n";
	 my $data = $ua->get('http://forum.antichat.ru/threadnav83865-'.$i.'-10.html')->content;
	 my @list = ($data =~ /(\w{32})</g);
	 if(@list)
		{
		 print " Found ".@list." hashes\n";
		 open F, '>>', $output;
		 print F $_.$/ for @list;
		 close F;
		}
	}