sub ReadBytes {
    my $fh  = shift;
    my $num = shift || 1; # Default to 1 byte instead of error
    return undef unless ($fh);

    my $bytes;
    return undef unless (read($fh, $bytes, $num));

    unpack("C$num", $bytes);
}