use Slurp; # Slurpt ganze Dateien in Variablen
my $inhalt = slurp( $dateiname )
    or die qq(Konnte Datei "$dateiname" nicht einlesen:$!));