[PERL] Aiuto da esperti per upload tramite form

[lostiamoxdendo]

#!/perl

use strict;
use warnings;
use Socket qw(:DEFAULT :crlf);
use IO::Socket::INET;

my $content;
my $file = "file.zip"; # Il tuo file da *uploaudare*
my $size = (-s $file);
my $target = 'http://www.yoursite.it/cgi-bin/upload.cgi'

my $socket = IO::Socket::INET->new(
PeerAddr => 'http://www.yoursite.it/',
PeerPort => '80',
Proto => 'tcp',
Type => SOCK_STREAM ) or die "Couldn't connect! $!\n";


syswrite $socket, "POST $target HTTP/1.0".$CRLF;
syswrite $socket, "Accept: */*".$CRLF;
syswrite $socket, "Accept-Language: en".$CRLF;
syswrite $socket, "Connection: Keep-Alive".$CRLF;
syswrite $socket, "User-Agent: Mozilla/4.0".$CRLF;
# syswrite $socket, "Content-type: application/octet-stream".$CRLF;
syswrite $socket, "Content-length: $size".$CRLF;
syswrite $socket, "$CRLF";

open(READ, "<$file") || die "$!\n";
binmode(READ);
while( read(READ,$content,4096) )
{ syswrite $socket, $content; }
close(READ);

print <$socket>;
close $socket;


Qualcuno mi aiutare a far funzionare questo script? La risposta del server è ke non è stato caricato il file sul form...