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


in reply to if (open(FH, $path)) { ?

Have a look at perldoc -f -X, it has a whole bunch of tests that can be done on files: if (-r $filename) { #do something }