Create fileList.perl