Select Code to Download

my $name;
while ( my $para = <$PROTFILE> ) {
...
    };
    ...
}

my $name;
my %name_seen;  # fasta headers seen so far
...
    };
    ...
}