#!/usr/bin/perl
use strict;
use CGI::Carp qw/fatalsToBrowser/;

die "Datei zu lang\n" if $ENV{CONTENT_LENGTH} > 5000000;