open(DATEI, "<", "/root/Documents/Socket-Programmierung_2/Datei/Test") or die $!; binmode DATEI; @daten = ;