Wer noch keine SSD in seinem Computer hat oder wer ladeintensive Anwendungen startet (z.B. Photoshop), der sieht öfter mal einen Startbildschirm für ein Programm. Das ist ein grafischer Platzhalter, der angezeigt wird, während die Anwendung startet.
Solch einen Startbildschirm kann man mittels Tk::Splashscreen erstellen.
#!perl
use strict;
use warnings;
use Tk;
use Tk::Animation;
use Tk::Splashscreen;
my $mw = MainWindow->new();
$mw->withdraw;
$mw->Button(-text => 'Quit', -command => \&exit)->pack;
my $splash = $mw->Splashscreen(-milliseconds => 5000);
my $animate;
my $gif89 = Tk->findINC('anim.gif');
$animate = $splash->Animation(-format => 'gif', -file => $gif89);
$splash->Label(-image => $animate)->pack;
$animate->set_image(0);
$animate->start_animation(500);
$splash->Splash; # show Splashscreen
$mw->after(1000);
$| = 1;
print STDOUT "Waiting for Splashscreen to finish ...\n";
$splash->Destroy; # tear down Splashscreen
$mw->deiconify; # show calculator
$mw->MainLoop;
exit(0);