sub splash {
    my $windowHeight = 170;
    my $windowWidth  = 170;
    my $screenHeight = $config{'mw'}->screenheight;
    my $screenWidth = $config{'mw'}->screenwidth;
    
    my $geometrie  = $windowWidth."x".$windowHeight;
    $geometrie .= "+" . int($screenWidth/2 - $windowWidth/2);
    $geometrie .= "+" . int($screenHeight/2 - $windowHeight/2);
   
    my $splash = make_toplevel('-', $geometrie);
    $splash->overrideredirect(1);
    $splash->configure(-background => 'red');
    $splash->Label(-image => $config{'mw'}->Photo(-file => $images{'SPLASH'}))->pack;#place(-in => $splash);
}

#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;

my $splash = tkinit;
$splash->overrideredirect(1);
$splash->geometry("100x100+200+200");

$splash->Label(-image => $splash->Photo(-file => "test.gif"))->pack;

MainLoop;