Create a program using XML::Simple that will parse the following XML document shown below and convert it to a CSV formatted file. Using the same structure, change all first names to reflect only a first capitalized initial (for example, Ilya to I), then output this file to a new XML document.