#Datei in Skalar einlesen
open($FH, "<", "/root/Documents/Socket-Programmierung_2/Datei/test.txt") or die $!;
binmode $FH;
$daten = <$FH>;

$length = length($daten);