use XML::Parser:Expat;
$file = "..\\sample.xml";
my $parser = XML::Parser::Expat(Handlers => 
                              {Start => \&handle_start,
                               End => \&handle_end,});
$parse->parsefile($file);
my @element_stack;
sub handle_start {
my($expat,$element,%attrs) = @_;
my $line = $expat->current_line;
print "I can see $element element starting on line: $line\n";
push(@element_stack,{element=>$element,line=$line});
if(%attrs){
while(my($key,$value) = each(%attrs)) {
print "\t$key=>$value\n";
  }
 }
}
sub handle_end {
my($expat,$element) = @_;
my $element_record = pop(@element_stack);
print "i can see the $element element started on line ",$$element_record{line}, "is closing now\n";
}