Monks,

I have just bought Mastering Perl/Tk and play with some examples. While doing that I stumbled over the "after" method and wrote the following code:

use Tk;

my $mw = MainWindow->new();

my $level = 0;

my $id = $mw->after (1, \&_after);

sub _after
{
    if ( $level < 5 )
    {
        $level++;
        my $id = $mw->after (1, \&_after);
    }
    else
    {
        $level--;
    }

    print "$level";
}


MainLoop;

1;

The ouput of this in my system (Win32, Perl 5.8) is "123454" and not "123454321" as I expect. Also the program seems to be still busy. There is an hourglass cursor.

I'm seeking for enlightment why the program doesn't behave as I expect it to.