>perl -e '$code=system("exit 3"); print("Finished with $? (or ",$?>>8,") $code (or ",$code>>8,")\n");'
Finished with -1 (or 72057594037927935) -1 (or 72057594037927935)
>perl -e '$code=system("ps > /dev/null;exit 3"); print("Finished with $? (or ",$?>>8,") $code (or ",$code>>8,")\n");'
Finished with 768 (or 3) 768 (or 3)