Perl scripts for mining metagenomes for resistance mutations