Perl scripts for genome annotation