$window->repeat(5000, \&showcount);
.......
sub showcount {
    $balk  and  $c1->delete($balk);
    my $jobs01 = ...;
    chomp ($jobs01);
    $balk = $c1->createLine(88, 65, $jobs01+88, 65,
            -width => '10', -fill => 'green');
    return;
}