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

my $mw = MainWindow->new();
$mw->geometry('200x200+500+500');

my $message = $mw->Label( 
 -text => "busy cursor test")->pack( -fill => 'x' );

#comment this block out for normal busy operation 
{
no warnings;
sub Tk::Widget::Busy{}
}

$mw->repeat(500, sub{ $mw->Busy });
$mw->repeat(600, sub{ $mw->Unbusy });

MainLoop();