Klic funkcije večkrat

Na http://perl.apache.org/guide/perl.html#... piše nekaj o tem zakaj tole naj ne bi delalo:

 sub analyse {
 
 @URLS = ("$base_url");
 
 $browser = LWP::UserAgent->new();
 $browser->agent("MatejKovacicGregaPetric/InternetResearchProject");
 $webdoc = $browser->request(HTTP::Request->new(GET => $page));
 foreach $url (@URLS) {
 $webdoc = $browser->request(HTTP::Request->new(GET => $url));
 if ($webdoc->is_success) {
 print "url:$url";
 
 $base_url = $webdoc->base;
 $parser = HTML::LinkExtor->new(undef, $base_url);
 $parser->parse(get($base_url))->eof;
 
 @links = $parser->links;
 
 foreach $linkarray (@links) {
 my @element = @$linkarray;
 my $elt_type = shift @element;
 while (@element) {
 my ($attr_name , $attr_value) = splice(@element, 0, 2);
 $seen{$attr_value}++;
 }
 } 
 $i = 0;
 for (sort keys %seen) {
 $arr[$i] = $_;
 $i++;
 }
 print "linki: @arr\n"; 
 }
 else {
 print "URL ne obstaja!";
 }
 }
 
 };
 
 
 }
 

Problem: ne štekam kako najti rešitev.

Any help?