Genedenovo perl tools