my $t = new Proc::ProcessTable;
foreach my $p ( @{$t->table} ){
	if($p->cmndline =~ / member.cgi/) {
		my $_sec = time() - $p->start;
		my $_pid = $p->pid;
		if($_sec > 3 && $pid->is_pid_running($_pid)) {
			$pid->kill( $_pid );
			print qq~$_pid was running for $_sec seconds...\n~;
		}
	}
}

##</code><code>##

foreach my $p ( @{$t->table} ){
	if($p->cmndline =~ / member.cgi/) {