#!/usr/bin/perl
use strict;
use warnings;
chomp(my $enter = <STDIN>);
my @fields = split(/ /, $enter, 9999);
use XML::Twig;
open (FILE, $fields[1]);
my $file = <FILE>;
my $t= XML::Twig->new( twig_roots => { 'djn-geo' => 1});
$t->parsefile($file);
open(STDOUT, ">$fields[2]");
$t->print;