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

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Tk;

my $mw = Tk::MainWindow->new( -title => 'Listbox' );

my @array = ('A'..'Z');

my $lb = $mw->Scrolled('Listbox',
             -listvariable => \@array,
             )->pack();


my $b  = $mw->Button(
    -text    => 'Delete B',
    -command => sub{ del_it('B') },
)->pack();

MainLoop;

sub del_it {
    my $remove = shift;
    @array = grep { $_ ne 'B' } @array;
}

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

##</code><code>##

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