#!/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( '
'
)
->print;
####