my $xml = XMLin(..., KeepRoot => 1); print XMLout($xml, KeepRoot => 1);