#!/usr/bin/perl
use XML::Parser;
use strict;
my $xml_file = $ARGV[0];
my $parser = new XML::Parser;
$parser->setHandlers(
                    Start => \&start_tag_handler,
                    End   => \&end_tag_handler,
                    );
$parser->parsefile($xml_file);
my @tags;
sub start_tag_handler
{
    my $p       = shift;
	my $element = shift;	
	my $parent = $p->current_element;
	my $realtag = "$parent::$element";
	push(@tags, $realtag);
}
sub end_tag_handler
{
    my $p2       = shift;
	my $element2 = shift;	
	my $parent2 = $p2->current_element;
	my $realtag2 = "$parent2::$element2";
	my $index = 0;
	$index++ until $tags[$index] eq "$realtag2";
	splice(@tags, $index, 1);
}

open (MYFILE, '>data.txt');
print MYFILE "Tags in the array are @tags\n";
close (MYFILE);