use strict;
    use Tk;
    my $mw = MainWindow->new;   
    my $t = $mw->Scrolled('Text',-scrollbars => 'se', -wrap=>'none')->pack;
        #Works
    $t->Subwidget('text')->configure(-bg => 'grey');
        #Does not work
    #$t->Subwidget('yscrollbar')->configure(-width =>24);
     
    $mw->after(100, sub {$t->Subwidget('yscrollbar')->configure(-width =>44);$mw->update;});
    MainLoop;