my $ssw = MainWindow->new(-title=>'text');
my $sp = $ssw->Splashscreen();
$sp->Label(-image => $ssw->Photo(-file => "$imgpath\\splash.jpg"))->pack;
$sp->Splash(5000);$sp->update; $ssw->withdraw;
$sp->Destroy();	$ssw->destroy;