#!/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;
$sp->Destroy(4000);
MainLoop;'