use Tk;
$mw=tkinit;
for my $i (1..10) {
    $mw->repeat(rand(900)+100, sub { warn "I'm $i.\n" });
}
MainLoop;