Try calling binmode before you start printing:

binmode FILEHANDLE;
print $data while(read(FILEHANDLE, $data, 1024));
[download]

[ar0n]