$ perl -e '$> = 0; print "$!\n"; print "$>\n"'
Operation not permitted
501
$