if (-e $file && open (AFILE, "<$file")) { ...