Select Code to Download

# read number: 8 bytes, return decimal value
sub getnumber {
...
  my $num = read($FH, $buffer, 8);
  return unpack 'd*', reverse $buffer;
}