I'm not really sure where you have problems.

while (<...>) {
[download]

reads line-by line. So you better make sure that you are sending line-by-line, that is, after each record, write $\, or better be explicit and write a newline:

for my $rec (@records) {
    print {$output} "$rec\n";
};
[download]