#!/usr/bin/perl -w

while(defined($file=glob("*.faa"))){
	$file=~ s/\.faa//;
	$out=$file."\.pepstats";
	$file=$file.".faa";
	system("pepstats $file -outfile $out");
	}