memory problem with threads

[du4mi]

Hello perl-ithreads,

this script consume fast whole memory
undef dont help me - memory usage increased on every &lwp loop

I run it on WindowsXP SP1 with ActiveState 5.8.2

please help.

Thanks in advance.



#!perl -w
use threads;
#use strict;  # of course I have ran it with "use strict" too
use Win32::Internet;  #
#use LWP;              # the same problem, no difference

while(1){
    $thr = threads->new(\&lwp);
    # lwp(); # works fine
    #$thr->join;
    sleep 10;
};

sub lwp {
    $INET = new Win32::Internet();
    $file = $INET->FetchURL("http://www.yahoo.com";);
    #undef $INET;
    #undef $file;
    return 1;

    #my $url = 'http://web.de';
    #my $agent = LWP::UserAgent->new;
    #$agent->agent("Mozilla/4.0");
    #my $request = HTTP::Request->new( GET => $url );
    #my $response = $agent->request($request);
    #$response->is_success or print "lwp-Fehler: ".$response->message ." \n";
    #my $contents = $response->content;
    # #return $contents;
    #1;
};  

-- 
Best regards,
Pavel                         mailto:[EMAIL PROTECTED]