Select Code to Download

sub output {
    my $self = shift;
    my ($dom, $xslfile, $stylesheet);
...
    $dom = $stylesheet->transform($self->{'dom'});
    return $dom->toString();
}

sub apply_stylesheet {
    my $self = shift;
    my ($dom, $xslfile, $stylesheet);
...
    $dom = $stylesheet->transform($self->{'dom'});
    return $dom;
}