#!c:/perl/bin/perl   
use Tk;
$mw = MainWindow->new();
$mw->geometry('+0+0');
$mw->title( "Many buttons" );

## Create Frame of elements
my $frame= $mw->Frame(
						-relief => 'groove',
						-bd => 1,
						-height => 5);
$frame->pack( -side => 'left',-pady => 1, -fill => 'x');	

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();