#!/Perl/bin/perl
use strict;
use warnings;
use Data::Dumper qw/Dumper/;
use Tk;
use Tk::Pane;

my $mw = Tk::MainWindow->new();

my $sf = $mw->Scrolled(
   'Frame',
   -scrollbars => 'se',
   -bg => 'green',
)->pack();

my $lb = $sf->Label(-text=>'Text')->pack();

for($sf->{'SubWidget'}{'scrolled'}->packSlaves){
    $_->configure(-text=>'neu');  
}

$mw->MainLoop();