#!/usr/bin/perl

  use strict;
  use warnings;

  use Tk;

  my $mw = tkinit();

  my $scr_lb = $mw->Scrolled('Listbox')->pack();

  $scr_lb->Subwidget('xscrollbar')->configure(-bg => 'blue');
  $scr_lb->Subwidget('yscrollbar')->configure(-bg => 'red');
  $scr_lb->Subwidget('listbox')->configure(-bg => 'yellow');

  MainLoop();