alias ka 'setenv _KA_ '"'"'\!*'"'"';ps -ef|&perl -n -e '"'"'BEGIN{$A=(split(" ",$ENV{"_KA_"}||exit(0)))[0]}END{@a&&kill(9,@a)&&print"Killed: @a\n":"No process found to kill!\n"}($a=(split())[1])!=$$&&/$A/&&kill(2,$a)&&push(@a,$a)&&print'"'"''