#!C:/perl/bin/perl.exe

use warnings;

use Tk;
use Tk::ProgressBar::Mac;
use Tk::Splashscreen;

use subs qw/main/;
use strict;

main;

sub main {

    my $mw = MainWindow->new;

    my $splash = $mw->Splashscreen;
    $splash->Label( -text       => 'Presenting your splash screen ...',
    )->pack(qw/-fill both -expand 1/);
    my $pb = $splash->ProgressBar(-width => 300);
    $pb->pack(qw/-fill both -expand 1/);
    $splash->Label(
        -image => $mw->Photo(
	    -file => Tk->findINC('Some/Path/to/images/splash.gif')
	),
    )->pack;
    $splash->Splash;

    my $w = 1;
    while ($w < 100) {
    $pb->set($w);
    $mw->update;
    $mw->after(1);
    $w++;
    } 
     
    $splash->Destroy;
    
    MainLoop;

}