$ touch foo
$ chmod 000 foo
$ perl -e '$file = "foo"; open FILE, $file or die "$! $file";'
Permission denied foo at -e line 1.