When I have to do this, I simply create a very small anonymous sub. Something like:

$parser->handler(sub { $self->add_link(@_) },
                 'tagname,attr');
[download]

That code's not tested, but you get the idea.

Update:Remove bad parameter I forgot to delete.

Update:Probably should be $self-> instead of $parser->. Fixed.