open(my $FH, "<", "dateiname") or die $!;
binmode $FH;
$daten = <$FH>;