Select Code to Download

use XML::Parser:Expat;
$file = "..\\sample.xml";
...
my $element_record = pop(@element_stack);
print "i can see the $element element started on line ",$$element_reco
+rd{line}, "is closing now\n";
}

<?xml version="1.0"?>
<spam-document version="3.5" timestamp="2013-08-28 15:23:15">
...
</address>
</customer>
</spam-document>