my $splash = $mw->Splashscreen(-milliseconds => 3000);
my $canvas = $splash->Canvas(-width => 420,
                             -height => 300)->pack;
$canvas->createImage(0, 0,
                     -anchor => 'nw',
                     -image => $mw->Photo(-file => 'gfx/splash.png'));
$mw->withdraw;
$splash->Splash();