#!/usr/bin/perl -w
use strict;
use XML::Parser;

open (FILEA, "File.txt");
my $parser = XML::Parser->new();		
$parser->setHandlers(Start => \&handle_start,
					Char => \&handle_char,
					End => \&handle_end1,
					Final => \&final1);
											
$parser-parsefile('File2.txt');
my $char_array_ref;
my @end_array;

sub handle_start{
my $e = shift;
my $start_element = shift;
if ($start_element eq 'coordinates'){print "hello.\n";
    $parser->setHandlers(Char => \&coord);
    }
 }
sub handle_char{
my $e = shift;
print "HELLO There\n.";
}

sub coord{
my $e = shift;
print "hello again.\n";
}