At a guess, it is indeed corrupting your file. The bug is known. Choose $ftp->binary, which solves the problem. It shouldn't be necessary to call it, but for today, it'll help a lot.

The tickets for the package show the bug listed in several different ways — probably because people don't read tickets before posting bugs? Basically, it's removing the last character from each line.