http://www.perlmonks.org?node_id=1009607


in reply to Re: File open issue
in thread File open issue

What about this:
if(-r $tempfile) { open (TMPFILE, "$tempfile") or die "Can't open $tempfile: $!"; (@tmpfile) = <TMPFILE>; close TMPFILE; }else { $nofile = "1"; }