Select Code to Download

foreach (keys %plugins) {
    my $thread_queue = Thread::Queue::Any->new;
...
...
...
MainLoop;

sub _thread_sub_in_a_plugin {

...
    ...
    }
}

Main(Tk)   imagePlugin
  |
...
  |     generate and show image
  |
  |