my $widget = $mainwindow->Scrolled("Listbox",
        -relief => "sunken",
        -background => "gray60",
        -width => 90,
        -height => 30,
        );

$widget->pack(-side => "left", -fill => "both", -expand => "yes");
[download]