perl -e "for (qx[wmic process get processid,parentprocessid,executablepath ]){next unless m/perl.+\Q$$\E/;$parent=(split /\s+/,$_) [1] ;qx|taskkill /PID $parent|} "