if( open(FH, $datei) ) {
     print "ok\n";

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