I'm trying to run a script that does a file upload via POST on a VMS node. I've download and successfully compiled a version of VMS Perl from "Craig Berry's 5.6.1 easy-to-install release". When I run the script on Win32 it runs fine. When I run the app on VMS the web server replies with a "500 length of data sent did not match calculated Content-Length header..." Is the content-length calculation wrong or is it a difference between OSs? I noticed that when I don't use the dynamic_file_upload that the content-length in the file field is at 4096 for a 3705K file. 4096 is a very familiar number ;-) The $^O variable says that I'm running VMS. I've tried everything. If this is a bug I'll code the thing in C via sockets (yuck). Here's the script: ---------------------------------------------------------------------------- ------------------------------- use strict; use LWP::Debug qw(+); use LWP::UserAgent; use HTTP::Request::Common qw(POST); use MIME::Base64; $HTTP::Request::Common::DYNAMIC_FILE_UPLOAD++; my $ua = new LWP::UserAgent; $ua->agent("fris_1.0"); my $proxy_server = "http://myproxy.com"; my $proxy_userid = "uid"; my $proxy_password = "pass"; my $url = "http://uploadserver.com/servlet/UploadFile"; my $filename = "test.txt"; my $req = POST ($url, Content_Type => 'form-data', Content => [ The_UserID => 'form_uid', The_Password => 'form_pass', Dir => 'destdir/', File => [$filename,$filename] ]); $ua->proxy(http => $proxy_server); $req->proxy_authorization_basic( $proxy_userid, $proxy_password ); my $res = $ua->request($req); print $res->status_line."\n"; print $res->content; ---------------------------------------------------------------------------- ------------------------------- Chris Kokosa EDS Embedded Systems chris.kokosa@eds.comThread Next