#!/opt/local/bin/perl -w
use strict;
use warnings;
use Tk;

my $button_label = 'Push me';

my $mw = MainWindow->new;
   $mw->geometry("300x200+20+20");
   $mw->title( "Tk Testing" );

my $button;
$button = $mw->Button(
   -textvariable => \$button_label,
   -underline => 0,
   -foreground => 'blue',
   -command => sub {
       my $saved_label = $button_label;
       $button_label = 'Ouch!';
       $button->configure(
                          -relief => 'flat',
                          -activeforeground => 'red',
                          -activebackground => 'green',
                         );

       $button->Busy(-recurse => 1 );

       sleep( 10 );

       $button_label = $saved_label;
       $button->configure(
                          -relief => 'raised',
                          -foreground => 'blue',
                         );

       $button->Unbusy;
                   },
   )->pack(-side => 'top',
           -anchor => 'center',
           -fill => 'none',
           -expand => 0,
           -padx => 5,
           -pady => 5,
          );

MainLoop;

exit 0;

__END__