$ perl -le'qx{echo foo | grep bar}; print $?'
256

$ perl -le'qx{echo foo | grep foo}; print $?'
0