$ perl -le 'open(FILE, ">", "nowrite/newfile")
>    or die("Unable to create file: $!\n")'
Unable to create file: Permission denied