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