<foren>
 <forum value="1">
   http://board.perl-community.de
 </forum>
 <forum value="2">
   http://perlmonks.org
 </forum>
</foren>

#!/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";
}