Perl - Upload

[xwolf]

Hi,

ich bastle mir da grad ein Upload-Script.

$CGI::POST_MAX = MAX_FILE_SIZE;
my $file = $cgiquery->param('datei');
my $dateigroesse = (-s $file);
if ($dateigroesse < MAX_FILE_SIZE)
{
Lade Script hoch
}
else
{Ausgabe:
Datei zu groß
}

Naja mein Problem ist jetzt halt, dass das mit der Beschränkung nicht klappt. Er läd erst das ganze Zeug hoch bis er merkt, dass es zuviel ist und bricht dann ab. Manchmal mit der Ausgabe und manchmal "Datei zu groß" und manchmal mit "Die Seite kann nicht angezeigt werden."!
Somit hab 2 Probleme:

1. Wie bekomme ich es hin, dass er erst die Dateigröße überprüft bevor er hochlädt und dann durch $CGI::POST_MAX merkt dass es zu groß ist ?

Frag vor dem Aufruf von CGI die ENV CONTENT_LENGT ab.

2. Wie bekomme ich eine gescheite Fehlermeldung hin, wenn es nicht klappen sollte?

Genauso, wie wenn es klappt...
Content-Type ausgeben und Text ausprinten...

Ciao,
  Wolfgang

P.S.: http://cgi.xwolf.de/cgi/upload.shtml