#Open and parse XML
open (my $input, "<xmlsample.xml")or die "Could not open xml input.";
my $parser = XML::LibXML->new();
my $pdoc = $parser->parse_file('xmlsample.xml');
close ($input) or die "Could not close xml input.";

#Register Namespace
my $rdoc = XML::LibXML::XPathContext->new($pdoc->documentElement());
$rdoc->registerNs( ns => 'bazongNS' );

#Find node and add element
my ($object) = $rdoc->findnodes("\/\/ns:root");
$object->addNewChild("bazongNS","element");

#Replace file
open (my $OutputXML, ">xmlsample.xml") or die "Could not write XML fil
+e.";
print $OutputXML $pdoc->toString();
close ($OutputXML) or die "Could not close written XML file.";
[download]

<root xmlns="bazongNS">
</root>
[download]

<?xml version="1.0"?>
<root xmlns="bazongNS">
<element/>
</root>
[download]

Thank you very much for your support. I realized my script as you recommented. Michael