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;