#Update the text in the comment.
        my ($first_comment) = $doc->findnodes("/comment()[1]");
        my $timestamp = POSIX::strftime("%Y%m%d%H%M%S", localtime);
        my $new_comment = qq(Saved by $0 on $timestamp from $ENV{COMPUTERNAME} by user $ENV{USERNAME});
        $first_comment->setData($new_comment);

        #Update the regular text node. 
        my ($Appname_node) = $doc->findnodes("/Testing/name1/Appname");
        $Appname_node->removeChildNodes();
        $Appname_node->appendText($0);


##</code><code>##


use strict;
use warnings;
use XML::LibXML;

my $doc = XML::LibXML->load_xml(string => <<END_XML);
<TT>
 <A>xyz<B>test1</B></A>
 <!-- my comment -->
</TT>
END_XML

# Print everything
my ($node_a) = $doc->findnodes("/TT/A");
$node_a->appendTextNode('-123-'); 
$node_a->appendTextNode('-456-'); 
print $doc->toString, "\n";
my $count=1;
foreach($doc->findnodes("/TT/A/text()")){
    print $count++,": ", $_->data, "\n";
}
__END__
<?xml version="1.0"?>
<TT>
 <A>xyz<B>test1</B>-123--456-</A>
 <!-- my comment -->
</TT>

1: xyz
2: -123--456-