du kannst mit IO::Select prüfen, ob auf dem socket noch daten zum lesen anliegen.
Ansonsten gibt die zahl bei read nur an, wieviel du maximal lesen willst.
heißt, wenn nur 1 byte zum lesen dar sind, liesst du auch nur 1 byte, auch wenn du 4096 bytes angibst.

also, immer mit IO::Select prüfen, ob was zum lesen da ist, und dann lesen