while(1) {
	use strict qw/refs/;
	use warnings FATAL => 'syntax';
    
	my @ready = $selSock->can_read(10);
	unless (@ready) {next};