# perl -e '$< = 81'
setruid() not implemented at -e line 1.