perl -e 'exit "foo"'; echo $?