use Tk;
use lib ".";
use Tk::waitVariableX;
my $break;
sub start_it{
    $break=0; while (!$break) {
        my $result = foo($a1, $a2);
        $detail->insert("1.0", $result);
        $mw->waitVariableX(3000, \$break); # cf EMU-book
    }
}
sub stop_it {
    $break = 1;   # set by mou-click
}

##</code><code>##

Tk::Error: Failed to AUTOLOAD 'MainWindow::waitVariableX'
Carp::croak at C:/Perl/lib/Carp.pm line 269
Tk::Widget::__ANON__ at C:/Perl/site/lib/Tk/Widget.pm