don't have a version that will handle the L<foo(1)|foo(1)> construct yet, here is a copy from my laptop (slightly modifed to work independently of the place where perl itself resides).
