$ perl -e'$! = 1; print "$!\n"'
Operation not permitted