#!/usr/bin/perl
$enter = <STDIN>;
@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]");
$twig->print;