Select Code to Download

sub tick {
   # Run every 1000 milliseconds.
...
   $mw->after(1000, \&tick);           # Suggest loop here
   print "No Error; we should get here often. \n";
}