Select Code to Download

my $repeater = $mw->repeat(1000, \&sub); 
.... 
$repeater->cancel;  # when you want to stop it

#!/usr/bin/perl
use Tk;
...
               }  ); 
      
}