#!/usr/bin/perl --
use strict;
use warnings;
use Tk;
Main( @ARGV );
exit( 0 );
sub Main {
    gogogo(  shift || 6_200 );
}
sub gogogo {
    my( $max ) = @_;
    my $mw = tkinit;
    for my $ix ( 1 .. 3 ){
        my $button =  $mw->Button( -text => "Make $max" )->pack;
        my $frame =  $mw->Scrolled('Frame')->pack(qw/ -expand 1 -fill 
+both /);
        $button->configure( -command => [ \&makesome, $frame , $max ] 
+);
    }
    $mw->MainLoop;
}

sub makesome {
    my( $frame , $max ) = @_;
    $frame->Busy;
    
    my $button =  $Tk::event->W ;
    $button->configure( qw/ -state disabled /);
    $button->update;
    $frame->update;
    my $time = time;
    print "$frame ( $max ) $time\n";
    for my $ix( 0 .. $max ){
        my $button = $frame->Button( -text => $ix )->pack;
        $button->configure( qw/ -state disabled /);
    }
    
    $frame->update;
    $frame->Unbusy;
    my $time2 = time;
    print "$frame ( $max ) $time2 #### $time2 - $time = @{[ $time2 - $
+time ]}\n";
    return;
}
[download]