CreateXML -> FillXML
Added lines of code perl script