Datei bleibt bei Upload via Perl leer

[wunderwarzenschwein]

Hi,

ich habe mir aus http://aktuell.de.selfhtml.org/artikel/cgiperl/file-upload/index.htm und http://perlbase.xwolf.de/cgi-bin/perlbase.cgi?dis.10.7 versucht, ein Skript zum Upload von Bildern zusammenzubasteln:

my $max = 1024 * 1000;

$file=$params{'file'};

open (OUTFILE, '>/dir/cms/test.jpg') or die("Fehler bei Hochladen",$!);
binmode OUTFILE;
while ($bytesread = read($file, $buffer, 1024)) {
 $sum += $bytesread;
 if( $sum > $max){
  close OUTFILE;
  unlink '/dir/cms/test.jpg';
  die "Das Upload Limit ist erreicht","Abbruch...";
 }
 print OUTFILE $buffer;
}
close OUTFILE;

Das Skript läuft ohne Fehlermeldung durch und die Datei wird auch angelegt, bleibt jedoch leer.
Hat jemand eine Ahnung, woran das liegen könnte?
Der Vollständigkeit halber hier noch der Code des Formulars:

<form action='uploadimage.cgi' method='post' enctype='multipart/form-data'>
<input name='file' type='file'>
<input type='submit' value='Speichern'>
</form>

Danke im Voraus für alle Antworten

wunderwarzenschwein