http://qs1969.pair.com?node_id=350010

bkiahg has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monks,

I am trying to test whether or not someone has permission to read a file and if they do print it out. This is how I have it so far.
if (open(FH, "C:/web/test/test.dat")) { while (<FH>) { print } close FH or die "Cannot close: $!"; } else { print "No go!!!!"; }
The above code is working but my question is, is this the best way to check?