sub CheckProcess {
  foreach $_ (`tlist.exe $_[0]`) {
    my $finder = index($_, "CIBFeeder");
    if ($finder > -1) {
      print "$_\n";
      return 1;
    }
  }
  return 0;
}