#!/usr/bin/perl

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

my $file = 'test.xml';
my $parser = XML::LibXML->new();
my $tree = $parser->parse_file($file);
my $root = $tree->getDocumentElement();

my @foren = $root->getElementsByTagName('forum');

foreach my $forum(@foren){
  print $forum->getAttribute('value'),": ",$forum->getData(),"\n";
}