Select Code to Download

use strict;
use warnings;
...
$root->parse ($sgml);

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

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