package sillyTimer;

use strict;
use Multiplex;

# Example timer class
sub new
  {
    my $proto = shift;
    my $class = ref($proto) || $proto;
    my %args  = @_;
    my $self  = \%args;

    bless($self, $class);
  }

# Print 'bing' every 5 seconds
sub timeout
  {
    print "Bing!\n";

    Multiplex::timeout(sillyTimer->new(), 5);
  }

package Main;

use strict;
use Multiplex;
use tcpAccept;

my $acceptor = tcpAccept->new(port => 20000);
Multiplex::listen($acceptor);

Multiplex::timeout(sillyTimer->new(), 1);
Multiplex::timeout(sillyTimer->new(), 1.5);

for (;;)
  {
    Multiplex::despatchevents()
  }