# set up timed updates here:
my $timer = $mw->repeat(500,\&delay_type);

MainLoop();

sub delay_type {
    $timer->cancel() and return unless @junk;
    my $n = shift @junk;
    $rec1->dchars($txt_tag,0);
    $rec1->insert($txt_tag,0,$n);
}