ANTICHAT - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

взял за основу. по теории должна быть многопоточность но как уже говорил переменная выводится по порядку что видимо означает что все потоки выполняются последовательно.
в тех примерах что я привел выше переменная выодится хаотично а не по порядку...
и все таки как оптимизировать мой скрипт(жрет много памяти):

PHP код:


		
			
use threads;

use threads::shared;

use LWP::UserAgent;

|=1;

$thr = 10;

$ua = LWP::UserAgent->new();

$t=1;

print "start...\n";

while($t<100){

for(0..$thr) {

print "new thread...\n";

   $trl[$_] = threads->create(\&func,$t++);

}

for(0..$thr) {

   $trl[$_]->join;

}



sub func{

$t=$_[0];

print "new zap...$t\n";

my $res = $ua->post( "http://mysite.com", {email => $email } )->as_string;

$res=~m/1(.*)2/ig;

print $t."  ".$1."\n";

}