#!/usr/bin/perl -w

# zap - kill processes by name

use strict;

my @pnames;

if ($#ARGV < 0) {
	print STDERR "usage: $0 processname ...\n";
	exit 1;
}

for (@ARGV) {
	@pnames = `ps -C $_`;
	kill 9, map { (split)[0] } @pnames[1 .. $#pnames];
}