Подключаем соккеты:
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;
}
ЗЫ Писал не проверяя, возможны баги