perl -e "`taskkill /pid $$ /f`";