perl -MFile::Slurp -le 'write_file "tmp42", $n = 1 + eval{read_file "tmp42"}; print $n'