Help for this page

Select Code to Download

Select or download this

while (<XMLFILE>) {
#  ... do stuff ...
    print "\cM";
    print $ctr;
}