<?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>