open (XMLFILE,"exportB.xml") || die "Can't open export.xml file :$!\n";
while(<XMLFILE>){
$ctr++;
# do something here ...
print $ctr;