Select Code to Download

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

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

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