open(INFILE, "< $infile") or die "\nDatei $infile konnte nicht geoeffnet werden\n";