#!/usr/bin/perl
use strict;
use Tk;

my $mw = MainWindow->new;
#$mw->geometry('400x250'); #some issues with this...
                           #see my post

my $FirstFrame = $mw->Frame(
         -bg =>  'lavender',
         -relief => 'sunken',
         -width => 400,
         -height => 250)->pack(-expand => 1, -fill => 'both');
         
my $spacer_frame = $FirstFrame->Frame(
        -width =>10,  # ADJUST THIS TO SEE WHAT IT DOES
        )->pack(-side => 'left');
     
my $listbox = $FirstFrame->Scrolled ('Listbox',
    -bg => 'white',
    -scrollbars => "e",
    -selectmode => 'extended',
    -width  => 10,      
    -height => 5, )->pack(-side=>'left');
    
my @strings2 = qw/apples bananas pears grapes/ x 5; 

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