perl  checkfasta.pl  old.sample.seq new.sample.seq > check.log