-------- code that I was just looking at-------------
#!/usr/bin/perl

use warnings;
use strict;

use XML::Twig;

my $twig = XML::Twig->new(twig_roots => { one => 1});
$twig->parsefile(shift);
$twig->print;




--- example file -------
<config>
 <one id="msn" type="shopping">
   <traffic>
       <daily value="on" />
       <weekly value="off" />
       <monthly value="off" />
   </traffic>
  </one>

 <one id="movies" type="entertainment">
   <traffic>
       <daily value="on" />
       <weekly value="off />
       <monthly value="on" />
   </traffic>
 </one>

 <one id="espn" type="sports">
  <traffic>
      <daily value="on" />
      <weekly value="on" />
      <monthly value="on />
      <hyper value="true />
  </traffic>
 </one>
</config>