Select Code to Download

 $id = Tk::After->new($widget, tid, $time, ’once’,   callback);
 $id = Tk::After->new($widget, tid, $time, ’repeat’, callback);
...
 
once or repeat specifies whether the timer is a one-time-after
event, or a repeating repeat event.

$id = $mw->repeat( 10, sub{} );

#!/usr/bin/perl -w
use strict;
...
}

##################################################################

open FH, '< myfile' or warn "$!\n" ;                    
my (@array) = <FS>;                                               
close FH;
$listbox->update;  # may not be needed