I don't know any off the top of my head but how about writing a stylesheet and then using XSLT?

<?xml version="1.0" encoding="ISO-8859-1"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" 
   version="1.0">
<xsl:output method="text" indent="yes" encoding="ISO-8859-1"/>

<xsl:template match="myobject">
eval {
  my $object = new MyObject();<xsl:apply-templates select="function" /
+>
};
</xsl:template>

<xsl:template match="function">
  $object-><xsl:value-of select="@name" />(<xsl:apply-templates select
+="parameter"/>);
</xsl:template>

<xsl:template match="parameter">
    <xsl:value-of select="." />
    <xsl:if test="not(position()=last())">, </xsl:if>
</xsl:template>

</xsl:stylesheet>
[download]

-derby