#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = MainWindow->new( -title=>"Test");
$mw->geometry('200x200');
$mw->withdraw;
my $lab = $mw->Label(-text => "Wait while loading data")->pack();
$mw->Popup;
$mw->Busy( -recurse => 1 );  

my $data = 0;
&init_data();
$mw->waitVariable(\$data);

#will wait until data is set to 1

$mw->Unbusy( -recurse => 1 );
$lab->packForget;


my $lab1 = $mw->Label(-text => "Ready to go")->pack();


MainLoop;


sub init_data{
   #simulates getting data    

   $mw->after(4000,sub{
          $data = 1;         
          });

}
[download]