Select Code to Download

    sub attachment_link_extractor
            {
...

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

    $attachment_link_extractor =
        sub {
...

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