#!/usr/bin/perl

# Use MCE::Hobo for Perl lacking threads support.
# Based on zentara's 2nd demonstration found here.
# http://www.perlmonks.org/?node_id=1188686

use warnings;
use strict;
use MCE::Hobo;
use MCE::Shared;

# declare, share then assign
tie my $data_in, 'MCE::Shared', 0;
tie my $data_ret, 'MCE::Shared', '----';
tie my $button_control, 'MCE::Shared', 0;
tie my $go_control, 'MCE::Shared', 0;

# create hobo before any tk code is called
my $hobo = MCE::Hobo->create( \&worker );

use Tk;

my $mw  = MainWindow->new();
my $val = '----';

my $label  = $mw->Label( -width => 50, -textvariable => \$val )->pack(
+);
my $button = $mw->Button( -text => 'Start', -command => \&start )->pac
+k();

# you need a timer to read the shared var in hobo
my $timer  = $mw->repeat( 10, sub { $val = $data_ret } );

my $timer1 = $mw->repeat( 10, sub {
    if ($button_control) {
        $button->configure( -text=> "Next" );
        $button_control = 0;
    }
});

$mw->protocol( WM_DELETE_WINDOW => sub {
    $timer->cancel;
    $timer1->cancel;
    $hobo->exit->join;

    exit;
});

MainLoop;

sub start {
    $button->configure( -text=> "----" );
    $go_control = 1;
    # pass some new data in
    $data_in = int rand(20);
}

# no Tk code in hobo
sub worker {
    my $count;

    while (1) {
        # wait for $go_control
        if ($go_control) {
            print "incoming $data_in\n";
            print ++$count, "\n";
            if ($count >= $data_in) {
                $go_control = 0;
                $data_ret = $count;
                $button_control = 1;
            }
            $data_ret = $count;
            select(undef,undef,undef,.25);
        }
        # sleep until awakened
        else {
            $count = 0;
            select(undef,undef,undef,.25);
        }
   }

   return;
}
[download]