my $scrollery = $plist ->Subwidget("yscrollbar"); $scrollery ->configure(-background => "green", -troughcolor => "black", -command => \&somecallback );