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

# forward declarations
sub func_a;
sub func_b;

# functions (loops)
sub func_a {
    # STUFF..
    Tkx::after(100, [\&func_a]);
}

sub func_b {
    # STUFF..
    Tkx::after(100, [\&func_b]);
}

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

Tkx::MainLoop();
1;

__END__