#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;
my $file = "yourxmlfilename.xml";
my $t= XML::Twig->new( twig_roots => { 'djn-geo' => 1});
$t->parsefile($file);
$t->print;