milkbone/plugins/Tk-Splash.pl

package TkSplash;

use strict;
use warnings;

use Milkbone;

my $splash;

BEGIN 
{
    require Tk::FastSplash;
    $splash = Tk::FastSplash->Show("images/splash.bmp", 50, 50, "splash",1);
}

register_hook("pre_mainloop", sub {
    $splash->Destroy;
});

1;