$ perl -E'$^E=13; say $^E;'
Permission denied