#!/usr/bin/perl
#
#  @author ais
#  @edited eechan
#

$command = "run.sh";
$username = $ENV{USER};

@pid_lines = (`ps aux | grep $command`);

foreach $i (@pid_lines) {
  @a = split(" ",$i);
  print "kill -9 $a[1]\n";
  system("kill -9 $a[1]");
}

exit(0);
