<br>
use CGI;
use CGI::Carp qw ( fatalsToBrowser );
use File::Basename;

$CGI::DISABLE_UPLOADS=0; # Allow file uploads

my $query = new CGI;
my $filename = $query->param("datei");
my $kunde = $query->param("kunde");
my $upload_dir =$query->param("ziel");
my $groesse = $query->param("groesse");
my $action ="upload ".$filename;
undef $fehler;


$CGI::POST_MAX = 1024 * $groesse;

 $content_length = $ENV{'CONTENT_LENGTH'};

if ($content_length > $CGI::POST_MAX){
erlaubnis();
if ($sonder ne 'xxx'){
$fehler =" Datei groesser als erlaubt!";
goto Meldung;
# custom request entity too large error handling }
}

}