#!/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); 
##</code><code>##

package truncator;

require 5.005_62;
use strict;
use XML::SAX::Base;
our @ISA = ('XML::SAX::Base');
our $VERSION = '0.01';
my @tags;

sub new {
        my ($type) = @_;
        return bless {}, $type;
}

my $current_element = '';

sub start_element {
        my ($self, $element) = @_;

    $current_element = $element->{Name};
	push(@tags, $current_element);
	
}

 print @tags;

1;