Select Code to Download

<?xml version="1.0" encoding="UTF-8"?>
<guestbook xmlns="http://myweb.com" xmlns:xs="http://www.w3.org/2001/X
+MLSchema-instance" nome="740" xs:schemaLocation="http://myweb.com gue
+stbook.xsd">
...
   <guest>...</guest>
</comment>
</guestbook>

#!/usr/bin/perl

...
my $commento = $root->findnodes("$nodetobefound") || die("dead3");

print $commento->get_node(0)->toString();