Select Code to Download

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