open( my $fhi, '<', $datei ) or die "Fehler bei open: $!"; # lesend öffnen
while(<$fhi>) {
        # mach was mit $_
}
close $fhi;