>perl -E"say system('perl -e exit($ARGV[0]) 0'); say $?; say ${^CHILD_ERROR_NATIVE}"
0
0
0

>perl -E"say system('perl -e exit($ARGV[0]) 1'); say $?; say ${^CHILD_ERROR_NATIVE}"
256
256
256