my $base = 'http://webroothere.com/';
my %servers;
my $p = HTML::LinkExtor->new;  
$p->parse_file($File::Find::name);  
foreach ($p->links) { # for each link found...  
        my ($tag, %attrs) = @$_;  
        foreach my $a (keys %attrs) { # for each attribute of link  
           my $url = URI->new_abs($attrs{$a}, $base); 
                                   
           next unless $url->scheme =~ /^http/; 
                                   
           $servers{$url->host}++; #THIS IS THE LINE IT SEEMS TO ERROR ON