$ which exit
$ perl -wMstrict -le 'print system(q{/bin/bash -c "exit 3"});
     print "<$!>\n",$?>>8'
768
<>
3