perl -e "$x='dir'; $y='not*'; print qx(cd /D C:\\WINDOWS && $x /B $y)"