while(my $client = $server->accept()) {
    $select->add($client);
    foreach my $socket ($select->can_read(5)) {
        print "$socket\n";
    }
}