alligator: Perl - Upload

Beitrag lesen

Servus zusammen,

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 ?
2. Wie bekomme ich eine gescheite Fehlermeldung hin, wenn es nicht klappen sollte?

Vielen Dank schonmal für Hilfe.
cu
alligator