#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
# instead of use XML::XSLT; ...
#unshift @INC, "C:\\Perl64";
#require XML::XSLT;
use XML::XSLT;
#use XML::DOM;
#use XML::Parser;
#use XML::Simple;
#use LWP::Simple;


#WORDXML to XSLT(wordml2latex) using XML::XSLT
my $xslfile_path = "C:\\temp\\wordml2latex.xsl";
my $xmlfile_path = "C:\\temp\\Sample document.xml";

open my $xmlfile, '<', $xmlfile_path or die "Cannot open '$xmlfile_path': $!\n";

my $xmlfile_contents;
{
	local $/ = undef;
	$xmlfile_contents = <$xmlfile>;
	close $xmlfile;
}

#print $xmlfile_contents;
# exit 1;

open my $xslfile, '<', $xslfile_path or die "Cannot open '$xslfile_path': $!\n";

my $xslfile_contents;
{
	local $/ = undef;
	$xslfile_contents = <$xslfile>;
	close $xslfile;
}
#print $xslfile_contents;

my $xslt = XML::XSLT->new (Source => $xslfile_contents, warnings => 1);

$xslt->transform ($xmlfile_contents);
print $xslt->toString;

$xslt->dispose();