Use of unitialized value in hash element at F:\Perl\bin\scriptname.pl line 32.
Use of unitialized value in hash element at F:\Perl\bin\scriptname.pl line 32.
Use of unitialized value in hash element at F:\Perl\bin\scriptname.pl line 32.
Can't locate object method "host" via package "URI::_foreign" 
at F:\Perl\bin\scriptname.pl line 32.

##</code><code>##

use strict;  
use warnings;  
use HTML::LinkExtor;  
use URI;  
use File::Find; 

##</code><code>##

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