my $v=0;
$mw->after(5000, sub { $v=1 });
$mw->waitVariable(\$v);