<xsl:value-of select="title"/>

#!/usr/local/bin/perl use Benchmark; use XML::XSLT; use Carp qw(confess); use strict; $SIG{__DIE__} = \&confess; my $xsl_data = &xsl_data; my $xml_data = &xml_data; my $num = $ARGV[0] || 1; $XSLT::debug = $num == 1 ? 1 : 0; defined $ARGV[1] and $XML::XSLTParser::_indent_incr = $ARGV[1]; my $xsl = XML::DOM::Parser->new->parse($xsl_data); # my $xml = XML::DOM::Parser->new->parse($xml_data); my $result; print "starting test...\n\n"; timethis ($num, sub { my $parser = XML::XSLTParser->new(); $parser->open_project ($xml_data, $xsl, 'STRING', 'DOM'); $parser->process_project; $result = $XSLT::result->toString; $parser->DESTROY(); }); print $result; sleep 5; exit; sub xsl_data { my $data = < <xsl:value-of select="title"/>

DATA ; } sub xml_data { my $data =< Hello World! This is my first XSLT enabled Apache::ASP page! DATA ; }