#!/usr/local/bin/perl -w
use strict;
use vars qw($mw $sp);
use Tk;

sleep(10);

MainLoop;


BEGIN{
	require Tk::Splashscreen;
	use Tk;
	
	$mw = MainWindow->new(-title=>'text');
	
	$sp = $mw->Splashscreen();
	
	$sp->Label(-text=>'Starting up')->pack();
	
	$sp->Splash(10000);
}

##</code><code>##

$splash = Tk::Splash->Show($image, $width, $height, $title,
                                   $overrideredirect);