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;