use Tk;
my $timer = $mw->repeat( 3000, \&my_sub);