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

##</code><code>##

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