perl -e "my $cmd = qq(rmdir /s /q TempDirTree); print `$cmd` . qq(\n)"