#!/usr/bin/perl -w

use XML::LibXSLT;
use XML::LibXML;

my $s = "
<files>
  <file>
    <name>file_test1</name>
    <subject>subject1</subject>
    <userprop>
      <nameprop>Color</nameprop>
      <valueprop>Blue</valueprop>
    </userprop>
    <userprop>
      <nameprop>Texture</nameprop>
      <valueprop>Coarse</valueprop>
    </userprop>
  </file>
  <file>
    <name>file_test2</name>
    <subject>subject2</subject>
    <userprop>
      <nameprop>Color</nameprop>
      <valueprop>Blue</valueprop>
    </userprop>
  </file>
</files>";

print "Content-type: text/html\n\n";

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

  my $source = $parser->parse_string($s);
  my $style_doc = $parser->parse_file('style.xsl');
  my $stylesheet = $xslt->parse_stylesheet($style_doc);
  my $results = $stylesheet->transform($source);
  print $stylesheet->output_string($results);