my $ori_datei = "";
  my $datei_typ = "";
  my $typ = "";
  my $kop_datei = "";
  my @dateiinfo =();
  my $web = new CGI;

  
  print $web->header;
  print $web->start_html(-title => 'Datei hochladen');
  print $web->h1('Datei hochladen');
  my $ori_dateiname = $web->param("userfile");
  my $kop_dateiname = "/pfad/zur/Bild/".$ori_dateiname;
  $datei_typ = $web->uploadInfo($ori_dateiname);
  print %{$datei_typ};
  foreach $typ (%{$datei_typ}) {
    print "<br>$typ";
  }
  $ori_datei = $web->upload("userfile");
  @dateiinfo = stat($ori_datei);
  open (KOPDATEI,">$kop_dateiname");
  binmode (KOPDATEI);
  binmode ($ori_datei);
  while (<$ori_datei> {
    print (KOPDATEI $buffer);
   #print "<br> Grössenangabe : ".$dateiinfo[7];
  }
  close (KOPDATEI);
  print "<br> Datei wurde raufgeladen";