ANTICHAT - Показать сообщение отдельно - pproxy

да, память и процессорное время оно ест немилосердно, это расплата за небольшой размер скрипта.
Если слабая машина то могу предложить
1. Снизь приоритет выполнения процесса, это можно сделать в диспетчере задач. (процесс perl.exe)
2. Отключи многопоточность, тогда запросы будут выполняться последовательно и не так загружать процессор.

закомментируй эти строчки

Код:

...
		#my $pid = fork();
		#unless(defined($pid))
		#{
		#	print "# Erorr couldn't fork\n";
		#	close $conn;
		#	return;
		#}

		#if($pid)
		#{
		#	close $conn;
		#	$children{$pid}++;
		#	foreach(keys %children )
		#	{
		#		my $kid = waitpid($_, &WNOHANG);
		#		delete $children{$_} if($kid == -1 || $kid == $_);
		#	}
		#	return;
		#}
...

и еще команду exit:

Код:

...
		close $conn;
		#exit;
}
...