#!/usr/local/bin/perl
$proje = $ARGV[0];
open(PROC,"ps  |")||die "Can not open pipe :$! \n";
@processes = <PROC>;  
foreach (@processes){
 if ((/java/)||(/irserv/)||(/nameserv/)){
  @fields = split(/ +/,$_);
  system("kill -9 $fields[1]"); 
  print "kill  $fields[1] \n";
 }
}
close(PROC);
