local $/ = \$num;
return unpack "C*", scalar <$fh>;