sub attachment_link_extractor
            {
                my ($tag, %attr) = @_;

                push(@links, values %attr)
                    if (($tag eq 'a') &&
                        ($attr{href} =~ m/attachments/));
            }

      my $p = HTML::LinkExtor->new(\&attachment_link_extractor);


##</code><code>##

    $attachment_link_extractor =
        sub {
                my ($tag, %attr) = @_;

                push(@links, values %attr)
                    if (($tag eq 'a') &&
                        ($attr{href} =~ m/attachments/));
            };

      my $p = HTML::LinkExtor->new($attachment_link_extractor);