Update fa_cal_pairwise_identity.pl

use Getopt::Long