#!/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;