#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::Splashscreen;

my $mw = MainWindow->new;
$mw->Button( -text => 'Exit', -command => sub {exit} )->pack;
my $sp = $mw->Splashscreen;
$sp->Label(-text => 'Tk... Ick!', -font => [-size => 250])->pack;
$sp->Splash; #nothing displayed yet

sleep(10); # Still no splash screen

$sp->Destroy(5000); # Now we see the splash screen
                    # But execution of the program is on hold until
                    # the screen goes away... Boo!

MainLoop;