#!./perl -w

use strict;
use Event 0.10;
require Event::TopServer;

for (1..40) { 
    my $i = 1 + rand;
    Event->timer(interval => $i, callback => sub {}, desc => sprintf("%.2f",$i));
}

my $top = Event::TopServer->new();
warn "Listening on port $top->{port}...\n";

Event::Loop::Loop();
