Select Code to Download

{
  local $" = '';
  print FH "@fasta";
}

#!/usr/local/bin/perl 
use strict;
...
close $in;
close $out;
print "$count lines read from $file to $ofile\n";