{ # Öffnet einen Block, in dem...
    local $/ = undef; # ...das "Zeilenende" ausgeschaltet wird.
open ( DATEI, "< $dateiname" ) # siehe perldoc perlintro
    or die qq(Konnte Datei "$dateiname" nicht zum Lesen öffnen: $!);
my $inhalt = <DATEI>; # Scalar enthält nun allen Inhalt der Datei.