##

#!/usr/bin/perl
#
use strict;
use warnings;
use threads;

use XML::LibXML;

my $parser = XML::LibXML->new();
my $doc = $parser->parse_file("file.xml");

foreach my $title ($doc->findnodes('//gotoButton')) {
  my $button = $title->getAttribute('name');
  my $display = $title->getAttribute('display');
  print "$button\t$display\n"; 
}