abc.cgi

my $parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();

my $source = $parser->parse_file("abc.xml");
my $style_doc = $parser->parse_file("abc.xsl");

my $stylesheet = $xslt->parse_stylesheet($style_doc);

my $results = $stylesheet->transform($source, args => "' '",val => "'2'");

print $stylesheet->output_string($results);

##</code><code>##


abc.xml

<?xml version='1.0'?>
<?xml-stylesheet href="abc.xsl" type="text/xsl"?>

<tracks>
    <abc>
          <label>machine name</label>
          <desc>specify machine name</desc>
    </abc>
</tracks>


##</code><code>##


abc.xsl

<xsl:template match="tracks">
    <form name="form1" method="POST" action="logic.cgi">
    <table border="1">
        <tr>
            <td> Parameter </td>
            <td> Description </td>
            <td> Value  </td>
        </tr>
        <xsl:apply-templates/>
    </table>
    </form>
    <script>
        document.form1.submit();
    </script>
</xsl:template>

<xsl:template match="abc">
    <tr>
        <td>
            <xsl:value-of select="label"/>
        </td>
        <td>
            <xsl:value-of select="desc"/>
        </td>
        <td>
            <xsl:if test="label = 'machine name'">
               <input type="text" name="args1" value="">
               </input>
             </xsl:if>
        </td>
    </tr>
</xsl:template>

</xsl:stylesheet>

##</code><code>##

print "<form action=someform.cgi method=post name=somename>";
abc.cgi code
print "</form>";