in reply to sysread()
Set the socket to non-blocking mode (perldoc -q blocking) or set an alarm (perldoc -f alarm).