use Tk;

use strict;
use warnings;

my $mw = MainWindow -> new;
my $m = $mw -> Message (-text => "testing, one, two, three...") -> pack;
$m -> update;
for my $n (1 .. 10)
{
    print "$n\n";
    sleep 1;
}
$m -> destroy;
print "Done\n";