my $in = Bio::SeqIO->new(-file => "test.fa" , '-format' => 'Fasta')
    or die "Failed to open input file: $!";