>perl -MO=Deparse,-p -e"open FILE, $file || die"
open(FILE, ($file || die));
-e syntax OK

>perl -MO=Deparse,-p -e"open FILE, $file or die"
(open(FILE, $file) or die);
-e syntax OK

##</code><code>##

open(local *FH, '<', $file)
   or die("Unable to open file \"$file\": $!\n");

##</code><code>##

open(my $fh, '<', $file)
   or die("Unable to open file \"$file\": $!\n");