in reply to Re: Missing bytes??
in thread Missing bytes??

or 
while (read(FILE, $buf, 1)) {
   ...
}

[download]

In Section Seekers of Perl Wisdom