unless (defined(syswrite($socket,$buffer))) {
    # Oh dear, couldn't write.  Could it be that I'm
    # no longer connected?
    if (defined(getpeername($socket))) {
        # Yup, they're still there.  Must be a different error.
    } else {
        # Oops, the other side went away.
    }
}