Select Code to Download

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