I don't have Tkx, and can't run your code, but you need to understand what an eventloop is. When you call MainLoop, you start the eventloop and the widgets work. What is probably happening is you are starting the after timer, then since you never start the MainLoop, there is no eventloop for it to run in.

I can't run your code, but you might try this, which is a manual MainLoop, at the end of your code, or put it in your while loop

while (1) { 
   $mw->DoOneEvent( DONT_WAIT | ALL_EVENTS ); 
}
[download]

But if you are converting from a console app to a gui, and need to keep things going in the background, there are much better ways than what you are trying. Post exactly what type of console app it is, what is does, and what kind of a gui you need for it. Usually a piped open, fork, or threads will work fine.

But Perl will let you do things the hard way if you want. :-)