use XML::XSLT;
use strict;
use warnings;
my $xsl = 'sample.xsl';
my $xmlfile = 'sample.xml';
my $xslt = XML::XSLT->new($xsl, warnings => 1);