#!/usr/bin/perl

system("ps aux > out");
open(IN, "out");
while (<IN>) {
   if (/abwm/) {
      @field = split(/\s+/);
      print "abwm process $field[1]\n";
      system("kill -9 $field[1]");
   }
}
