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\n";
 
open ( OUT, ">prova.mpeg");

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

while (<$sock> )  {

		print OUT $_;

}

close(OUT);
 
close($sock);