Select Code to Download

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

use Tk::Event qw(DONT_WAIT);
#MainLoop;

#!/usr/bin/perl
# untested
...
#to run only one event loop at a time. 
#An even better idea would be to look at 
#the test suite for Tk, and see how they handled it...

#!/usr/bin/perl

...
# on file events or signals, you can take a look at the 
# Tk::Eventloop documentation for registering extra events 
# in the normal MainLoop.