use warnings;
use strict;
use Tk;

my $main= MainWindow->new (-title => "Test window");

$main->update ();
sleep (2);

$main->title ("Message");
$main->update ();
sleep (2);

$main->title ("Startup done");
MainLoop;