#!/usr/bin/perl -w
use strict;
use XML::XSLT;
use XML::DOM;

...

sub applyXSLDOM
{
my $self=shit;
my $request=shift;
my $xmldom=shift;
my $xsldoc="user\.xsl";

 eval{
    my $xslparser = XML::XSLT->new($xsldoc,"FILE");
    $xslparser->transform_document($xmldom,"DOM");
 };
 if ($@)
 {
    return $request->error("XSL Parsing failed: $@");
 }

return $xslparser->result_string;
}