CGI/Perl DateiUpload

[alligator]

HI zusammen,

ich hab ein Programm geschreiben, mit dem ich Datein via Http auf meinen Server via CGI-Script uploaden kann aber er bringt mir folgen Webserver_error:

Use of uninitialized value at upload2.pl line 81.

Use of uninitialized value at upload2.pl line 81.

Use of uninitialized value at upload2.pl line 81.

Use of uninitialized value at upload2.pl line 81.

Use of uninitialized value at upload2.pl line 81.

Can't use an undefined value as a symbol reference at upload2.pl line 59.

Und hier der QT von den Zeilen:

binmode $fh; ## das ist line 59

opendir DIR, $dir or die "Kann $dir nicht oeffnen: $!";

while (readdir DIR)

{

$dir_size += -s "$dir/$_"; ## das ist Line 81

}

return $dir_size;

}

Naja die Datei wird dann zwar auf dem Server erzeugt, aber bleibt leer, also 0KB.

Wäre dankbar für Hilfe

cu

alligator