use strict;
use warnings;
use Tk;

my @cursors = qw/ 12 24 48 96/;

my $mw = new MainWindow;
my $lb = $mw->Listbox(-selectmode => 'single',
                   );

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

$lb->insert('end', sort @cursors);
$lb->bind('<Button-1>', 
     sub { $mw->configure(-background => $lb->get($lb->curselection)); });


$lb->grid( -row => 10, -column => 2, -columnspan => 1);

MainLoop();