I haven't seen this mentioned yet, but when I saw it in your original question I did a double-take.

while () { ... } else { ... }
[download]

... is not a valid Perl syntax. There's no 'else' on while loops.