D:\>perl -le "$x = 1; system perl, '-le', \"exit ($x)\"; print $?;"
256

D:\>perl -le "$x = 1; system perl, '-le', \"exit $x\"; print $?;"
256