use Tk;
use Tk::Pane;
$mw = MainWindow->new();
$mw->geometry('+0+0');
$mw->title( "Many buttons" );

## Create Frame of elements
my $frame= $mw->Scrolled('Frame',
                        -relief => 'groove',
                        -bd => 1, -scrollbars=>"se");
$frame->pack(-fill => 'both', -expand => 1);    

my $num_of_buttons=10;    
#my num_of_buttons=40;    

while ($num_of_buttons > 0)
{
    ## Create Button of elements
    my $button = $frame->Button(
        -font => 'system',
        -text => "test",
        -activebackground => 'cyan',
        -width => 34,
        -state => "active",
        -relief => "raised",
        );
        $button->pack( -side => 'top', -fill => 'x' );
        $num_of_buttons--;
}
        
MainLoop();