Better, but not yet correct: you should tell Perl which file handle to read from:

while (<$fh>) {
[download]