alias ka 'ps -ef|&perl -n -e '"'"'END{@a&&kill(9,@a)}($a=(split())[1])!=$$&&/\!:1/&&kill(2,$a)&&push(@a,$a)&&print'"'"''