use FCGI;

while (FCGI::accept >= 0) {

	local $cnt;
	local $last_elapsed;
	
	###############
	&http(0);
	&head();
	&t('');
	print "OK";
	&t('');
	&t('');
	
	my $cc;
	while ($cc < 1000){
	  &test;
		$cc++;
	}	
}

sub test(){
	print "CNT: $cnt";
	$cnt++;
}