perl based code to parse Nessus XML files into a database structure