$ perl -le '`sudo perl -e "exit 3"`; print $?>>8'
3