# Add listen sockets to select
my $sockets = new IO::Select();
$sockets->add(\*STDIN );
$sockets->add($stream1_lsn);
$sockets->add($client1_lsn);
$sockets->add($client2_lsn);

.....

#Go into infinite loop, handling connections - how do I end this?
while(my @ready = $sockets->can_read) { #got data
  
foreach my $socket (@ready) { # find which socket sent data
     
    if ($socket == \*STDIN) {  
            #read stdin and detect a q;
            exit;  }