use strict;
use warnings;
use XML::Twig;
use Data::Dumper;

my $twig = XML::Twig->new();
$twig->parsefile( "player.xml");    # build the twig
my $root= $twig->root;
$root->set_tag( 'stats_test');
$root->print;