#!/usr/bin/perl -w

if (scalar(@ARGV) != 1) {
  print STDERR "usage: cleanup.pl <exe filename>\n";
  print STDERR "example: cleanup.pl kernel\n";
  exit;
}

($exefile) = @ARGV;

$pid = `ps | grep -v cleanup | grep $exefile | awk '{print \$1}'`;
@ps = split(/\n/, $pid);
foreach $p (@ps) {
    print STDERR "kill -9 $p\n";
    system("kill -9 $p");
}