If the file is binary, you should add:

binmode MYFILE;
[download]

right after the open. Also the line:

if ($byte > 0x30) {
[download]

should read:

if (ord($byte) > 0x30) {
[download]