Select Code to Download

my $RUNNING = 0;
$mw->repeat( 50 => sub { $taxis->taxis(\$RUNNING) unless $RUNNING} ];
...
   $$r_running = 0;
   return;
}

sub taxis
{
...
   $$r_running = 0;
   return;
}