if( open(FH, $datei) ) {
     print "Datei gefunden!\n";

while ( <FH> ) {
        print $_;
}
}
else {
die "Error: couldn't open file '$datei': $!\n";
}
close FH;