open (DATEI, "/root/Documents/Socket-Programmierung_2/Datei/test.txt") or die $!; while() { $daten = $daten.$_; } close (DATEI);