my $url;
my %stat; # the cache hash where pages and link are accumulated in their keys
my $ua = LWP::UserAgent->new;
my $parser = HTML::LinkExtor->new;
my $resp = $ua->get($url);
$parser->parse($resp->content);
    my $base = $resp->base;