sub output {
    my $self = shift;
    my ($dom, $xslfile, $stylesheet);
    if ($self->{'stylesheet'}) { 
        $xslfile = $self->{'basedir'} . $self->{'stylesheet'};
        $stylesheet = $self->{'xslt'}->parse_stylesheet_file($xslfile);
    } else {
        local $/ = undef;
         my $doc = $self->{'parser'}->parse_string(<DATA>);
        $stylesheet = $self->{'xslt'}->parse_stylesheet($doc);
    }
    $dom = $stylesheet->transform($self->{'dom'});
    return $dom->toString();
}