require HTML::TokeParser;
$p = HTML::TokeParser->new("output.xml") ||
      die "Can't open: $!";
$p->empty_element_tags(1);
open(FH, "output.xml");
print FH $p;
close FH;

##</code><code>##

<greeting class="simple">Hello, world!