Request header field is missing ':' separator

Since upload speed is your main concern, I also suggest checking out Furl and the various interfaces to Curl.

Wireshark, or just print to STDERR what you are printing to SOCK. Upon first glance it appears you did not add a blank line (\r\n) in between the headers and the data portion, so the server sees the data and thinks it's a header.

#!/usr/bin/perl
use warnings;
use strict;
use Socket;

my $buffersize = 2 * 1024 * 1024;

my $host = "127.0.0.1";
my $path = "/debug.php";
my $url  = "http://".$host.$path;
my $local_file = "testfile.rar";
my $local_path = "F:\\skript\\";

my $user = "cardman";
my $pass = "yvan eht nioj";
my $serverid = 666;

my $upfile = shift || $local_path.$local_file;

system("cls");
print STDOUT "Starting upload to ".$url."\r\n\r\n";

$| = 1;

my ($iaddr, $paddr, $proto);
$iaddr = inet_aton($host);
$paddr = sockaddr_in(80, $iaddr);
$proto = getprotobyname('tcp');
unless(socket(SOCK, PF_INET, SOCK_STREAM, $proto)) { die "Couldn't ini
+t socket: $!"; }
unless(connect(SOCK, $paddr)) { die "Couldn't connect: $!\r\n"; }

my $boundary = "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz";

my @data = (
    "--".$boundary."",
    "Content-Disposition: form-data; name=\"username\"",
    "",
    "".$user."",
    "--".$boundary."",
    "Content-Disposition: form-data; name=\"password\"",
    "",
    "".$pass."",
    "--".$boundary."",
    "Content-Disposition: form-data; name=\"serverid\"",
    "",
    "".$serverid."",
    "--".$boundary."",
    "Content-Disposition: form-data; name=\"file\"; filename=\"".$loca
+l_file."\"",
    "Content-Type: application/octet-stream",
    "",
    "",
);

open (FILE,"< $upfile") or die "$!\n";
binmode FILE;

my $data = join("\r\n", @data);
my $length = 0;
$length += length($data);        # length of the data to be POST'ed
$length += -s FILE;                # filesize
$length += length($boundary);    # boundary is added once more at the 
+end of all the file-chunks
$length += 4;                    # adding 4 bytes (no idea as to why, 
+but it works -- tested with 4 rng-files: 5 byte, 2mb, 15mb and 100mb)

my @head = (
    "POST ".$path." HTTP/1.1",
    "Host: ".$host."",
    "Content-Length: $length",
    "Connection: close",
    "Content-Type: multipart/form-data; boundary=".$boundary."",
    "",
    "",
);
my $header = join("\r\n", @head).$data;

# FOR DEBUGGING
# open (FILE2,"< $upfile") or die "$!\n";    binmode FILE;
# open(LOG, ">".$local_path."headers.txt"); binmode LOG;
# print LOG $header;
# while(sysread(FILE2, my $buf, 8)) { print LOG $buf; }
# print LOG "\r\n--".$boundary."--";
# close LOG; close FILE2;

select SOCK;
$| = 1;
binmode SOCK;

print SOCK $header;

while(sysread(FILE, my $buf, $buffersize))
{
    if(length($buf) < $buffersize) {
        $buf = $buf."\r\n--".$boundary."--";
        syswrite SOCK, $buf, length($buf);
     } else {
        syswrite SOCK, $buf, $buffersize;
    }
 }
close FILE;

my @response = (<SOCK>);
shutdown SOCK, 1;

print STDOUT "Result:\n-------\n @response";
close SOCK;
[download]

I think it is because you send one too many linefeeds in your @head and @data:

    "Content-Type: application/octet-stream",
    "",
    "", # this one is too much
[download]

Perosonally, I wonder what's wrong with using LWP::UserAgent resp. HTTP::Request::Common or WWW::Mechanize to automate a web form.

No, because when I merge the header-array with the data via

join("\r\n", @head).$data

the $data variable has no "\r\n" at the beginning, so the header-array needs to have 2 line breaks so the paket as a whole looks like this:


[...]
Content-Type: multipart/form-data; boundary=".$boundary."

--".$boundary."
Content-Disposition: form-data; name=\"username\"
[...]
[download]


PS: If you had read my first post you would know that all these nice comfortable modules have the problem that they copy the file completely into RAM while uploading it.
You can circumvent that by setting "$HTTP::Request::Common::DYNAMIC_FILE_UPLOAD = 1", but then the speed drops drastically - from 5mb/s to about 100kb/s. And you can't set the buffersize anywhere to increase that speed.

Best regards,
Kay