http://www.perlmonks.org?node_id=1009978


in reply to Splash screen increasing load time

...

The docs say

$splash = $mw->Splashscreen; ... populate the Splashscreen toplevel as desired ... $splash->Splash(4000); ... program initialization ... $splash->Destroy;

The code you posted doesn't follow this pattern but it should