Select Code to Download

while(<$fh>){
  my $id = '';
...
    $id2seq{$id} .= $_;
  }
}

#!/usr/bin/perl 
use strict;
...
}

close $fh;