Серьёзная проблема, помогите!!!

[b_ens]

Как получить средствами перла дату создания странички(какой-либо) на удалённом хттп-серваке?
Парюсь и не могу ничё поделать.

[SPV]

Подключаем соккеты:
use IO::Socket;

Нужна инфа с хоста:
$host = "www.myhost.ru";

О файле:
$file = "/somefilder/somefile.html";

Получаем такой запрос:
$query = "HEAD $file HTTP/1.0\n".
"Host: $host\n".
"\n";

Создаём соединение к серверу по хосту:
$remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>$host,PeerPort=>"http(80)");

Если аблом (нет хоста и т.п.):
unless ($remote) {print "Cannot connect to $host"; exit;}

Отдаём серверу наш запрос:
print $remote $query;

Получаем от него ответ:
$answer = join("",<$remote>);

Закрываем коннект:
close $remote;

Далее изучаем протокол HTTP и выдераем из ответа нужную инфу! Наример так:
if ($answer =~ /Last\-Modified\: (.*)/i) {
$lastmod = $1;
}

ЗЫ Писал не проверяя, возможны баги