in reply to Tk module usage of after method

To call something repeatedly, you can also use $mw->repeat. 
my $repeat_id = $widget->repeat($ms, $callback);

[download]
To cancel the loop, you then just call 
$widget->afterCancel($repeat_id);

[download]
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In Section Seekers of Perl Wisdom