$mw = MainWindow->new;
        $mw->geometry("239x274");
	$mw->resizable(0,0);
	$mw->configure(-background => "black");
        $mw->title("test");


$mwf = $mw->Scrolled(
   'Pane',
   -scrollbars => 'e',
   -background => 'white',
   -width => 620,
   -height => 165,
   -sticky     => 'nwse',
)->place( -x => 1, -y => 110);

	
while (@row = $queryHandle->fetchrow) 
{	
			$f1 = $mwf->Frame()->pack(-expand => 0,-fill => 'both' );
				for $fr($f1)
				{
					$i =0;
	  				for (1..5)
	  				{
	    							$fr->Button(
	       						-relief => 'groove',
	       						-text  => $row[$i],
	       						-background => 'white',
	       						-foreground => 'black',
	       						-command => [ \&ExtraInfo, $row[$i] ],
	       						-font => "Ariel 8 bold",
	       						-height     => 0,
	       						-width      => 1
	   						)->pack(-side=>'left',-expand => 1, -fill => 'both' );
							$i++;
  					}							
				}		
}