#!/usr/bin/perl
use IO::Socket;

$serv='www.xakep.ru';

$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$serv", PeerPort => "80") || die("Not connect");

	print $socket "GET $path HTTP/1.1\n";
	print $socket "Host: $serv\n";
	print $socket "Accept: */*\n";
	print $socket "Connection: close\n\n";


	while($s=<$socket>)
		{
		chomp($s);
		if($s=~/\<td>\<font face = \"Arial\" size = \"2\"\>(.*)\<\/font\>/)
			{
			$text=$1;
			if($text=~/\<strong\>(.*)\<\/strong\>/){$razd_id=prov_razd($1);}
			if($text=~/\<a href=\"(.*)\">(.*)\t\<\/a\>/){push(@stat,"$razd_id\|$1\|$2\n");}
			}
		}