if ($filenotgood ne "yes")
{
$fileName = param('FILE1') || "";
my ($filehandle) = CGI::upload('FILE1');
my $serverFile = $basedir . "/" .
   (split(/[\\\/]/, param('FILE1')))[-1];
my $buffer;
open (FILE,">$serverFile") or die $!;
binmode $filehandle;
while (my $bytesread=read($filehandle,$buffer,1024))
{
  if (print FILE $buffer)
  {
   $success = $hinweis2;
  }
  else {$success = $hinweis3;exit;} #Meldung, weil Fehler aufgetreten
}
close (FILE);
}
}