To do some behavioral debugging, I would like to have a Perl implementation of an RPC Portmapper (as per RFC1831). Before I burn time writing my own, I'm hoping that somebody has been down this road before and has code to share. An half hour spent searching the usual sources turned up nothing.

Thanks in advance for any leads.