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;          

##</code><code>##

<stats>
	<player>
		<name>Houston, Allan</name>
		<g>69</g>
		<ppg>20.1</ppg>
		<rpg>3.4</rpg>
		<apg>2.8</apg>
		<blk>14</blk>
	</player>
	<player>
		<name>Sprewell, Latrell</name>
		<g>69</g>
		<ppg>19.2</ppg>
		<rpg>4.5</rpg>
		<apg>4.0</apg>
		<blk>15</blk>
	</player>
	<player>
		<name>Ewing, Patrick</name>
		<g>49</g>
		<ppg>14.6</ppg>
		<rpg>10.0</rpg>
		<apg>1.0</apg>
		<blk>68</blk>
	</player>
	<player>
		<name>Johnson, Larry</name>
		<g>57</g>
		<ppg>11.1</ppg>
		<rpg>5.3</rpg>
		<apg>2.6</apg>
		<blk>7</blk>
	</player>
</stats>