something like this might help
sub process_is_active($){
my $process_name = shift;
open(PS,'ps -ef|';
while(<PS>){
next unless /$process_name/o;
return 1;
}
return 0;
} Mike
"Experience is the comb that Nature gives us, after we are bald."
Is that a haiku?
I never could get the hang
of writing those things.