Win 2003 + Perl

Собственно сабж, такая проблем - есть скрипт, под Ubuntu и XP он работает на Ура! А под Win 2003 не пашет(нужно очень запустить на 2003 т.к. дедик ) Версия компиляторов одна и та же.

Сам скрипт:

PHP:

use LWP::Simple;
use strict;
use threads;
use threads::shared;


 my $start : shared=20;
 my $finish : shared=100;
 my $potok=5;
 my @trl;
 open(TEXT,">>text.txt");

 for(0..$potok-1) {$trl[$_] = threads->create(&pars);}
 for(@trl) { $_->join; }

 sub pars {
 while ($start <= $finish){
 my $url=undef;
 {lock($start); $url ="url/$start/"; ++$start;}
 print "Search on URL: $url\n";
 my $response=get $url;
 my @massiv=$response=~m/регулярка/ig;

 foreach (@massiv) { print TEXT $_ . "\n"; }
 }
 }  

Он только выводит на экран Search on URL: и ссылка. А вот результат парсинга в файл не пишет Хотя результат есть 100%