@A=`ps -o pid,comm=CMD`;
@B=`ps -o pid,comm=CMD -u SYSTEM`;

push(@B,@A);

@C=grep(/BIBusTKServerMa.*|cogbootstrap.*|java.*|EXCEL.*|DevConsole.*|cogconfigw.*/,@B);
foreach $e(@C){
$z=substr($e,0,5);

push(@AllPIDtobeKilled ,$z);
}
foreach $PID(@AllPIDtobeKilled){
system("kill -9 $PID");
#print "$PID\n";
}