my $select = IO::Select->new($listen);
while(1) {
my($r,$w) = IO::Select->select($select, $select, undef, 0);
my $socket;
for $socket (@$r) {
  ...
}
for $socket (@$w) {
  ...
}