An infinite recursion loop that leaks memory, say it ain't so George, say it ain't so :)

#!/usr/bin/perl 
use strict;
use warnings;
use Tkx;

# forward declarations
sub func_a;
sub func_b;

# functions (loops)
sub func_a {
    # STUFF..
    Tkx::after(100, sub { "the stuffa not leaks "; });
}

sub func_b {
    # STUFF..
    Tkx::after(100, sub { "the stuffb not leaks "; });
}

# timed start
Tkx::after(100, [\&func_a]);
Tkx::after(100, [\&func_b]);

Tkx::MainLoop();
1;

__END__
[download]