#!/usr/bin/perl --
use strict;
use warnings;
use Tk;
my $omw = tkinit();
$omw->withdraw; ## no show
my $theword ;
my $mw = $omw->Dialog( -textvariable => \$theword );
$mw->transient(undef); ## let dialog show even if MainWindow withdrawn
for my $ix ( 1..3 ){
    $theword = "bird " x $ix;
    print join '  ', scalar(gmtime ), 
          $mw->Show, ## "MainLoop"
          "\n";
    sleep 1;
}
[download]