my $daten;
{
local $/ = undef;
binmode $FH;
$daten = <$FH>;
}