use Tk;
require Tk::mySplashScreen;

use strict;
use warnings;
 
my $s = mySplashScreen -> new
(
    -image => '',
    -text => 'testing, one, two, three...'
);
for my $n (1 .. 10)
{
    print "$n\n";
    sleep 1;
}
$s -> destroy;

##</code><code>##

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";