find(\&print_xml_files, @project_paths);
sub print_xml_files {
    return unless $File::Find::name =~ /(.*)\.xml$/ig;
    print FOUT $File::Find::name ."\n";

    }