while(my @ready = $sockets->can_read) { #got data
# add a timeout to your select
while(my @ready = $sockets->can_read (.1)  ) {  } # 100 ms timeout