# 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);
    };