Форум программистов [Powered by Invision Power Board]

Господа помогите пожалуйста разобраться в ошибке.
Смысл нижеприведённого кода загрузка картинки через XMLHttpRequest
file: func.js

Код


function getXmlHttp(){
  var xmlhttp;
  try {
    xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
  } catch (e) {
    try {
      xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
    } catch (E) {
      xmlhttp = false;
    }
  }
  if (!xmlhttp && typeof XMLHttpRequest!='undefined') {
    xmlhttp = new XMLHttpRequest();
  }
  return xmlhttp;
}


function upload(u, a) {

var xmlhttp = getXmlHttp()
alert ("upload.cgi?file="+u)
  xmlhttp.open("POST", "upload.cgi?file="+u, true);
  xmlhttp.setRequestHeader("Content-Type", "multipart/form-data");
  
xmlhttp.onreadystatechange = function() {
  if (xmlhttp.readyState == 4) {

alert (xmlhttp.responseText);

  }
};
xmlhttp.send(null);
}

file: upload.cgi

Код


#!C:/perl/bin/perl
use strict;
use warnings;

use CGI;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use Image::Size;
use Image::Magick;
my $image = Image::Magick->new;
print "Content-type: text/html\n\n";
my  $file=1;
    $file = param('picture');
if ($file) {
my $in = $file;
    $in =~ m#([^\\/:]+)$#;
my $width=120;    
open (IMAGE, ">i/$file") or die print $!;
binmode(IMAGE);
while (<$in>) {
print IMAGE $_;
}
close(IMAGE);
$image->Read("i/$file");
my ($w0, $h0) = $image->Get('width', 'height');
$w0 = $w0/120;
$h0 = int($h0/$w0);
$image->Scale(width=>$width, height=>$h0); 
$image->Write("i/$file");

print "<img src=\"i/$file\" width=$width height=$h0 alt=\"\">\n";
}
else {
 print "not good: $file\n";   
}

html

Код


<html><head><title>file upload</title>
 <script type="text/javascript" src="js/func.js"></script>

</head>  
<body>  
<form method='POST' enctype='multipart/form-data' action="upload.cgi">  
<input type='file' name='picture' onChange='upload(this.form.picture, "topicture")'>

<div id=topicture></div>
</form>  
</body>

последний через alert выдаёт ошибку

<h1>Software error:</h1>
<pre>Malformed multipart POST: data truncated
</pre>
<p>
....

подскажите где ошибся?