use XML::Smart ;

  my $xml = XML::Smart->new(q`<USER _City="testboro"></USER>` , upertag=>1 , uperarg=>1);

  print $xml->dump_tree_ok ;