open ( DATEI, "< $dateiname" ) # siehe perldoc perlintro
    or die qq(Konnte Datei "$dateiname" nicht zum Lesen öffnen: $!);
my @zeilen_array = <DATEI>; # Array enthält nun alle "Zeilen" aus der Datei. Nicht so superschlau bei Binärdateien.