open(my $fh, "<:crlf", "dateiname") or die $!;