Try this instead of the line by line while loop when you are reading binary data:

while (my $bytes = read($resumefilename, my $buffer, 1024)) {
    $resumefile .= $buffer;
}
[download]