if($form{upload} ne "") {
my $filehandle = $cgi->param('upload');
my $size = -s $filehandle;
$size /= 1024;
if($size < 80) {
open(DAT,">$ENV{DOCUMENT_ROOT}/$config{pfad}/images/$read[0].gif") || die $!;
binmode(DAT);
binmode $filehandle;
local $/ = undef;
my $data;
while(<$filehandle>) {
print DAT $data;
}
close(DAT);
print "$language{field73}<br>"; # Bild upgeloadet
} else {
print "$language{field72}<br>"; # Error: Bild zu groß
}