#!/usr/bin/perl
#very slightly modified example lifted from the docs

use strict;
use warnings;
use XML::Twig;



my $t= XML::Twig->new( map_xmlns => {'http://www.w3.org/2000/svg' => ""},
                         twig_handlers => 
                           { 'svg:circle' => sub { $_->set_att( r => 20) } },
                         pretty_print => 'indented', 
                       )
                  ->parse( '<doc xmlns:gr="http://www.w3.org/2000/svg">
                              <gr:circle cx="10" cy="90" r="10"/>
                           </doc>'
                         )
                  ->print;

##</code><code>##

<doc xmlns:gr="http://www.w3.org/2000/svg">
  <gr:circle cx="10" cy="90" r="10"/>
</doc>