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