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