Select Code to Download

use POSIX qw/EAGAIN EFBIG ENOSPC/;

...
        # One of the other dozen or so reasons a write can fail.
    }
}

unless (defined(syswrite($socket,$buffer))) {
    # Oh dear, couldn't write.  Could it be that I'm
...
        # Oops, the other side went away.
    }
}