# Set up a callback that collect image links
    my @imgs = ();
    my $callback = sub {
    my($tag, %attr) = @_;
        return if $tag ne 'a';  # we only look closer at <img ...>
        push(@imgs, values %attr);
    };

##</code><code>##

    return if $tag ne 'img';
    push(@imgs, $attr{'src'});

##</code><code>##

    return if $tag ne 'a';
    push(@imgs, $attr{'href'});

##</code><code>##

    @imgs = map { $_ = url($_, $base)->abs; } @imgs;

##</code><code>##

    @imgs = map { $_ = url($_, $base)->abs->as_string; } @imgs;