#!/bin/perl -w

use strict;
use XML::Twig;

my $field= $ARGV[0] || 'ppg';
my $twig= new XML::Twig( twig_roots => { $field => 1 },
                         twig_print_outside_roots => 1); 

$twig->parsefile( "nba.xml");                 # parse the twig