open DAT,">$fname" or die &fehler($!);

  # $fname enthält den Pfad der Datei
  # $file ist die übergebene Datei aus dem Formular
  # Dateien in den Binaer-Modus schalten
  binmode $file;
  binmode DAT;

  my $data;
  while(read $file,$data,10240)
  {
    print DAT $data;
  }
  close DAT;