use strict; use warnings; use Tk; my $mw = MainWindow -> new; my $m = $mw -> Message (-text => "testing, one, two, three...") -> pack; my $n = 0; $mw->repeat( 1000, sub{ $mw->destroy if ++$n == 10; print "$n\n"; } ); MainLoop; print "Done\n"; __END__ C:\test>\perl32\bin\perl junk91.pl 1 2 3 4 5 6 7 8 9 10 Done