Try this:

foreach my $line (@data) {
    print "$line\015\012"
}
[download]

Explanation: you need to send \r\n to the client over http, but the definition of \r and \n are different for each client, so using "\015\012" is safer..

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.
[download]