Using

while(( my @lines = map $_ = <>, 1 .. 4 )[-1]) {
[download]

should stop if the last line is not read as well. (You might need to add defined.)