Ah, you are only reading once. I see what you were asking now.

Making a while loop out of it like so:

my $line;
while (defined ($line = <>)) {
[download]

will repeat until there are no files left.