Select Code to Download

use strict;
use Bio::DB::Fasta;
...
    my ($id) = (/^>(\S+)/);  # capture the id string (without the init
+ial ">")
    print IDDATA ">$id\n", $db->seq( $id ), "\n";
}

use strict;

...
    my ($id) = (/^>(\S+)/);  # capture the id string (without the init
+ial ">")
    print IDDATA ">$id\n", $falib{$id}, "\n" if ( exists( $falib{$id} 
+));
}