#!/usr/bin/env perl

use strict;
use warnings;

use Tk;

my $mw = MainWindow->new;
$mw->geometry('400x250');

my $FirstFrame = $mw->Frame(
    -bg =>  'lavender',
    -relief => 'sunken',
)->pack(-expand => 1, -fill => 'both');

my $listbox = $FirstFrame->Scrolled('Listbox',
    -bg => 'white',
    -scrollbars => "e",
    -selectmode => 'extended',
    -width  => 200/7,
    -height => 212/15,
)->pack(qw{-side left -anchor n -padx 50 -pady 12});

my @strings2 = qw/apples bananas pears grapes/ x 5;

$listbox->insert('end',@strings2);

MainLoop();