To read everything in the read buffer use something along the lines of:
Code:
sockread $sock($sockname).rq &bvar