I read the original question the other way round. I think
Anonymous Monk wants something translated into Perl from another language ... not that it really matters as we don't know what needs translating anyway :)
Update @Anonymous Monk: Can you show us some code that needs translation or describe the problem the original code is solving?
-- Hofmator
Code written by Hofmator and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.