sub foo { my( $mw, $t ) ... }
sub bar { my( $mw, $t ) ... }
sub Main { GoTk(...); GoTk(...); }
sub GoTk {
... [\&foo, $mw, $t]
... [\&bar, $mw, $t]
... MainLoop }