{
   open(my $FILE, "file.binary") or die $!;
   binmode($FILE);

   local $/ = \1;
   while ( my $byte = <$FILE> ) {
      ...
   }

   close $FILE;
}

##</code><code>##

{
   open(my $FILE, "file.binary") or die $!;
   binmode($FILE);

   while (read($FILE, my $byte, 1)) {
      ...
   }

   close $FILE;
}