[PERL] Download video tramite sock

[[_Kilckk_]]

Salve, sto provando a realizzare un programma di download via sock, eccovi il codice:

#!/usr/bin/perl
 
use IO::Socket;
 
$srv = shift or die "Usage: perl script.pl <web_server>\n";
 
my $sock = new IO::Socket::INET(

	        PeerHost => $srv,
	        PeerPort => 80,
	        Proto => tcp,

);
 
print $sock "GET /prova.mpeg HTTP/1.1\n";
print $sock "Host: $srv\n";
 
open ( OUT, ">prova.mpeg");

while (<$sock>)  {

		print OUT $_;

}

close(OUT);
 
close($sock);

una volta completato il download effettuo la cancellazione dell'HEAD nel file a mano (poi creo un filtro per questo ).

Ora con gli mp3 non ho problemi anche se a volte arrivano un pò disturbati nel suono ma con i video non riesco a creare un file corretto.

Quali sono i parametri corretti per effettuare un ottimo download?

[menphisx]

#!/usr/bin/perl
 
use IO::Socket;
 
$srv = shift or die "Usage: perl script.pl <web_server>\n";
 
my $sock = new IO::Socket::INET(

	        PeerHost => $srv,
	        PeerPort => 80,
	        Proto => tcp,

);
 
print $sock "GET /prova.mpeg HTTP/1.1\n";
print $sock "Host: $srv\n\n";
 
open ( OUT, ">prova.mpeg");

#Salta l'header
while(<$sock){
  
   break if($_ eq "\n");
  
}

while (<$sock> )  {

		print OUT $_;

}

close(OUT);
 
close($sock);