sub ReadBytes {
  local $file = shift;
  my $num = shift;
  my $input;
  read($file, $input, $num);
  return unpack("C$num", $input);
}