*
* POE can't use multiple event loops at once.
* You used Select and Tk.
*
BEGIN failed--compilation aborted at C:/Perl/site/lib/POE/Kernel.pm line 491.
Compilation failed in require at (eval 14)[C:/Perl/site/lib/POE.pm:40] line 1.
BEGIN failed--compilation aborted at (eval 14)[C:/Perl/site/lib/POE.pm:40] line 1.
could not import qw(Kernel) at noname.pl line 4
BEGIN failed--compilation aborted at noname.pl line 4.

##</code><code>##

use warnings;
use strict;
use Tk;
use POE;

my $killAll = 0;

POE::Session->create
  (inline_states => {_start => \&startApplication, searchmode => \&searchMode});

POE::Session->create (inline_states => {_start => \&searchUpdate});

POE::Kernel->run();


# Relevant is also:
sub startApplication
{
my $main = MainWindow->new;
$main->Toplevel(-title => "Search");
MainLoop;
$killAll = 1;
}


sub searchUpdate
{
while (! $killAll)
  {
  sleep 1;
  print '.';
  }
}