[SPV]

use IO::Socket;
$host = "any.host.com";
$file = "/any/file.html";
$query = "GET $file HTTP/1.0\n".
"Host: $host\n".
"\n";
$remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>$host,PeerPort=>"http(80)");
unless ($remote) {exit;}
$remote->autoflush(1);
print $remote $query;
$answer = join("",<$remote>);
close $remote;

$answer - то, что хотел достать.