in reply to anonymous filehandle for overridden open sub
Does this help?
use IO::File; if (-e $file && open (my $AFILE = IO::File->new(), "<$file")) { ... [download]
the lowliest monk