#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;

my (@ccnet, $ccpid);
@ccnet = split(/\n/, `ps`);
@ccnet = grep(/ccnet.exe/, @ccnet);    
($ccpid) = "@ccnet" =~ /\s+(\d+)\s+/;
$ccpid and kill('HUP', $ccpid);