Pangea is a project mainly written in Perl, it's free.

taxonomy-dependent short read 16S rRNA classifier