Good idea. can also use the

HTML::LinkExtor
URI::URL

modules. simple example:

#!/usr/bin/perl -w
use strict;

my @imgs;
my $lx = HTML::LinkExtor->new(\&img);
my $respond = LWP::UserAgent->new->request(HTTP::Request->new(GET => '
+http://www.ibm.com'));
my $base = $respond->base;
$lx->parse($respond->content);
for(@imgs){
        print "Relative: $_\n";
        print "Full: ",url($_,$base)->abs,"\n\n";
}

sub img{
        my($tag,%links) = @_;
        push(@imgs,values %links) if($tag eq 'img');
}
[download]