#!/bin/perl
# !!! for linux only !!!
# killing process
# 100108
#

use strict;
my $proc = "conky";
# my $proc = "tracker.*";
my ( @ps );

@ps = split( /\n/, `ps ax` );
foreach my $j ( @ps ){
   chomp $j;
   if ( $j =~ /^ +(\d+) +[\w\/\?]+ +[\w+<]+.*$proc$/ ) {
      print "killing: $j\n";
      `kill $1`;
   }
}