Простейший скрипт
use IO::Socket;
print "Content-type: text/html\\n\\n";
print "Hello\\n";
$host = "
www.litvinuke.hut.ru";
$doc = "/articles/perlhttp.htm";
$conn = IO::Socket::INET->new(Proto => "tcp",
PeerAddr => $host,
PeerPort => 80);
die "cant connect $host $!" if (!$conn);
$conn->autoflush(1);
print $conn "HEAD $doc HTTP/1.0\\n\\n";
while (<$conn>) { print; }
close $conn;
Выдает ошибку
.... No such file or directory at
в чем может быть проблема
perl perl5.005_03
на perl perl5.005_04
все ок
