#!/usr/bin/perl
use Tk;
use Tk::Pane;
$top = new MainWindow;
$top->configure(-background=>'#333333',-title=>'test');
$top->geometry('300x300+100+200');

$select_windowS = $top->Scrolled('Frame', -scrollbars => 'e',-background=>'#171717')->pack(-expand=>'both',-fill=>'both');

my $ybar = $select_windowS->Subwidget('yscrollbar');

$ybar->configure(-troughcolor=>'#ff0000',-background=>'#ff0000',-highlightbackground=>'#0000ff',-activebackground=>'#00ffff');

for(1..40) { 
     $select_windowS->Label(-text=>"test",-foreground=>'#ffffff',-background=>'#000000')->pack(-side=>'top');
}

MainLoop;