This:

while (<>) {
[download]

is wrong, because you assigned a file handler to your input file. So, this should be:

while (<$PROTFILE>) {
[download]

Otherwise, I am not sure why you want to set to paragraph mode.

There may be some other problems, but that should help you to get going.