Your problem lies in this line of code:

print join(',', @$row), "\n";
[download]

The elements of the array @$row appear to have newlines in them. These need to be chomped.
Try something like this:

foreach my $element (@$row)
{
  chomp($element); ### remove the newline
  print "$element,"; ### print it with a comma
}
print "\n";
[download]