$file = "/datei.txt";
open( FH, "<", $file )
  or die qq(Konnte Datei "$file" nicht zum Lesen öffnen, weil... $!);
print while <FH>;
close FH;