#!/usr/bin/perl

use IO::Socket::INET;
use IO::Select;

use strict;
use warnings;

my $listen = new IO::Socket::INET(Listen => 1, LocalPort => 8889);
my $sel = new IO::Select($listen);

{
  my $fh;
  print STDERR "1\n";
  sleep 1 until ($fh) = $sel->can_read;
  print STDERR "2\n";

  my $new = $listen->accept;
  $sel->add($new);
  print STDERR $new->sockhost," 2.5\n";
}

while (1){
  print STDERR "3\n";
  foreach my $fh ($sel->can_write){
      print STDERR "4\n";
      print $fh rand(100),"\n" or die "4:$!\n";
    }
  sleep 1;
}