Then how do you know the file transferred through the socket correctly?

In the line where you're printing to the file, try just printing to the terminal instead (instead of

print FILE $_;
[download]

just use

print $_;
[download]

Also, is this a binary file? It's possible that you may need to use read instead of the <> operator. And perhaps binmode as well.