use strict; use XML::Twig; my $file = "bookmark.xml"; my $twig = new XML::Twig( TwigHandlers => {'link[@category]' => \&print_link}); $twig->parsefile($file); sub print_link { my ($t, $elt) = @_; print $elt->text . "\n"; my $attributes_hr = $elt->atts; foreach my $attr (keys %$attributes_hr) { print "$attr: $attributes_hr->{$attr} \n"; } }