my $spane = $mw->Scrolled('Pane', 
        -scrollbars => 'oe', 
         -height => 400,  
         -bg => "orange",  
         )->pack();    

my $yscrollbar = $spane->Subwidget('yscrollbar'); 
$yscrollbar->focus;   #makes up/down arrows control scrollbar