open(F,$pfad_datei) or die("Error:$!\n");
@datei=<F>;
close F;


open(F,'>$pfad_datei')or die("E:$!\n");
      print F @datei or die("E:$!\n");
      close F;