if($file=~/[\w _\.\-\(\)\+]+\.jpg/i) {

      # --- Zieldateiennamen erstelle und Datei öffnen     => engl.: create destination-file-name and open
      $sname = time.'.'.$ENV{'REMOTE_ADDR'}.' - '.$ueberschrift.' - '.$unterschrift.' - '.$file;
      $sname =~ s/ä/ae/g;	$sname =~ s/Ä/Ae/g;
      $sname =~ s/ö/oe/g;	$sname =~ s/Ö/Oe/g;
      $sname =~ s/ü/ue/g;	$sname =~ s/Ü/Ue/g;
      $sname =~ s/ß/ss/g;
      $fname = '../Content/Gaestebuch/'.$sname;

      open DAT,'>'.$fname or die 'Error processing file: ',$!;

      # --- Dateien in den Binaer-Modus schalten       => engl.: switch to bin-mode
      binmode $file;
      binmode DAT;

      # --- Datei hochladen    => engl.: Upload
      my $data;
      while(read $file,$data,640000) {		print DAT $data;	}
      close DAT;
    }