Perl scripts using the Ensembl API to find homologs