TEST1
TEST2
en
TEST3
####
ADDKEY
SAMPLEKEY
STRING
TEST1
en
TEST2
##
##
use strict;
use warnings;
use XML::LibXML;
# load
open my $fh, '<', 'test.xml';
binmode $fh; # drop all PerlIO layers possibly created by a use open pragma
my $doc = XML::LibXML->load_xml(IO => $fh);
my $root=$doc->getDocumentElement();
# Grabs the 'dict' element
my $rootElement = pop(@{$root>getElementsByTagName('dict')});
my $keyElement= $doc->createElement("key");
$keyElement->appendText('Test');
$rootElement->appendChild($keyElement);
# save
open my $out, '>', 'out.xml';
binmode $out;
$doc->toFH($out);