#!/usr/bin/perl
#
# Example 7-8. Using XSLT.

use strict;
use XML::Sablotron;

unless (defined($ARGV[0]) && defined $ARGV[1]) {
   die "Usage: example7-8.pl xml_input.xml xslt_input.xslt\n";
}

my $processor = new XML::Sablotron();
$processor->runProcessor($ARGV[1], 
                         $ARGV[0], 
                         'arg:/result',
                         undef, undef);

print $processor->getResultArg("arg:/result");