I'm writing a web crawler. So far I've got some logic for changing relative urls to absolute urls, and a foreach loop to iterate through the links. It generally looks like this:

#!/usr/bin/perl -w

use LWP::Simple;
use HTML::SimpleLinkExtor;
use Data::Dumper;
use LWP::RobotUA;
use HTTP::Response;

$_="http://www.frozenhosting.com";
my $ua = LWP::RobotUA->new("theusefulbot", "akurtis3 at yahoo.com");
$ua->delay(10/60);
my $content= $ua->get($_);
my $extor = HTML::SimpleLinkExtor->new();
$extor->parse($content);

my @links=$extor->a;
print "start";
foreach $links (@links) {
        
}
print $content;
[download]

Yes I know it's missing the logic for urls, and a hash to store it in, but I need to have a loop to tie the entire thing together, I used to open a file and enclose the whole thing in a while loop, but that was when i was mistakenly thinking that I could read from and append to the same file. Here are the past crawler attempts: Useless use of substr in void context

Thanks,