my $Scrolled_Search_Listbox = $mw->Scrolled(
    q{Listbox},
    -background => "white",
    ...
    );

##</code><code>##

my $dateSelectFrame = $mainWin->Frame(
   -relief      => q{flat},
   -borderwidth => 2);
$dateSelectFrame->pack(
   -side => q{top});
my $dateSelectList = $dateSelectFrame->Scrolled(
   q{Listbox},
   %commonListboxOpts,
   -width   => 15,
   -height  => 6,
   -setgrid => 1);
$dateSelectList->pack(
   -padx   => 5,
   -pady   => 5,
   -fill   => q{y},
   -expand => 1,
   -anchor => q{n});