while(<STDIN>){

I think with this while loop without any wait-stage in it, you might get blocked by NCBI. Make sure to follow their rules and introduce a sufficiently long sleep in each iteration - I think they want 3 seconds. (looks like the -delay parameter of Bio::DB::GenBank would do the same)