Select Code to Download

  print $xml->{_City} ;

  use XML::Smart ;

...

  print $xml->dump_tree_ok ;

$VAR1 = {
          'USER' => {
                      '_CITY' => 'testboro'
                    }
        };