use strict;
use warnings;
use HTML::TreeBuilder;

my $sgml = <<SGML;
<greeting class="simple">Hello, world!
SGML

my $root = HTML::TreeBuilder->new ();

$root->ignore_unknown (0);
$root->parse ($sgml);

print $root->guts (0)->as_XML ();