Add a

    $error >>= 8;
[download]

between your first and last line to get a more accurate value.

Abigail