Select Code to Download

while ( my $para = <$PROTFILE> ) { 
  # Remove fasta header line 
...
    print $OUTFILE '>'.$name.$para."\n\n";
  } 
}