#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;

my $mw = tkinit;

for (0..100)
{
    my $v=0;
    $mw->after(100, sub { $v=1 });
    $mw->waitVariable(\$v);

    print "Nummer $_\n";
}

exit;