[SPV]

use IO::Socket;

$url = 'www.any.com/anypath/any.file';
($host, $file) = split('/',$url,2);
$file = '/'.$file;
$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) { return "invalid host"; }
$remote->autoflush(1);
binmode $remote;
print $remote $query;
$answer = join("",<$remote>);
close $remote;
if (index($answer,"\r\n\r\n")>0) {
substr($answer,0,index($answer,"\r\n\r\n")+4) = '';
} else {
substr($answer,0,index($answer,"\n\n")+2) = '';
}

$answer - тот самый any.file с сервера