Read In Byte by Byte

 To Read in byte by byte....

open (FILE,"/tmp/hardcat.db") || die;
#open (FILE,"/tmp/msf1") || die;
binmode FILE;
$i=0;
while ( $nread = sysread (FILE,$c, 1)) {
  print "$i  $nread  **$c**\n";
  $n = ord($c);
  printf("%x %d %c \n",$n,$n,$n);

  if ( $i++ > 10 ) { exit }
}

close(FILE);