$ sudo perl -e 'exit 3'
$ echo $?
3