#!/usr/bin/perl

use strict;

use XML::LibXML;
use HTML::Entities;
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use Fcntl qw(:flock);

my $cgi = new CGI;
print "Content-type: text/html\n\n";

my $file_dati = "../data/xml/guestbook_xml.xml";
my $parser = XML::LibXML->new();
my $doc = $parser->parse_file($file_dati) || die("dead1");
my $root = $doc->getDocumentElement || die("dead2");

my $nodetobefound= "xs:commento[xs:\@timestamp='20130903225513']";

print "$nodetobefound\n";

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

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