perl -e "system('cmd /c dir');"