Tk::After might be interesting for you.
Best regards,
perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8.8.8.32.11.32"
#!/usr/bin/perl
use warnings;
use strict;
use Tk;
my $mw = tkinit;
#for(1..3){sleep 1};
#to wait until a $widget is visible, use waitVisibility:
$mw->waitVisibility;
for(1..3){sleep 1};
MainLoop;
perlmonks.org content © perlmonks.org and fluffyvoidwarrior, strat, zentara
prlmnks.org © 2006 edmund von der burg (eccles & toad)
v 0.03