Tkx::after(5000, \&repeat_me_every_5000ms );
sub repeat_me_every_5000ms {
   ...
   Tkx::after(5000, \&repeat_me_every_5000ms );
}

my $sub = sub {
    ...
    Tkx::after(5000, $sub ); # schedule to repeat
};
Tkx::after(5000, $sub );
[download]

thanks