perl pm_gene_uninit.pl