#!/usr/bin/perl

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

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

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

foreach my $forum(@foren){
 print $forum->getAttribute('value'),": ",$forum->textContent(),"\n";
}
_ _ DATA _ _
<foren>
<forum value="1">
  http://board.perl-community.de
</forum>
<forum value="2">
  http://perlmonks.org
</forum>
</foren>