open FILE, $file || 'default.txt' or die "Can't open: $!";

##</code><code>##

perl -MO=Deparse,-p -e'open FILE, $file || "default.txt" or die "Cannot open: $!";'