my $t= XML::Twig->new( 
       # the twig will include just the root and selected titles 
           twig_roots   => { 'section/title' => \&print_n_purge,
                             'annex/title'   => \&print_n_purge
           }
                      );
  $t->parsefile( 'doc.xml');

<sektion>
<title attrib="bla>
<value>
wert
</value>
</title>
</sektion>

#!/usr/bin/perl -w

use strict;
use XML::Twig;
my $file = "/Users/mem/Desktop/CV/test.xml";

my %cities;

my $twig = XML::Twig-> new(

    KeepEncoding =>  1,

        TwigRoots   =>  {'europe' => 1},

    TwigHandlers =>  {'capitale[@lang="fr"]'

      =>  sub {$cities{$_[1]->text} = $_[1]->att("lang")}}

    );
$twig-> parsefile($file);

$twig-> purge;


foreach my $key (keys %cities) {
     print "$key = $cities{$key}\n";
}