Tip # from the Basic debugging checklist: use strict. $lin is not the same as $line. Other observations:

• Check success of open
• Do you really mean to print to your XML input file?