use Tk;

my $main = MainWindow->new;

my $listbox1 = $main->Listbox(-width => 25,
    -height => 5);

$listbox1->insert('end', "Apples", "Blueberries",
    "Bananas", "Kiwis", "Mangoes", "Oranges",
    "Pears", "Pineapples");

my $scroll1 = $main->Scrollbar(-command => ['yview', $listbox1]);

$listbox1->configure(-yscrollcommand => ['set', $scroll1]);

$listbox1->pack(-side => 'left', -fill => 'both');

$scroll1->pack(-side => 'right', -fill => 'y');

MainLoop;