use Tk;
use Tk::Pane;

####### Hauptfenster erstellen
$mw = MainWindow->new(-title => 'Testscroll' );
$fr1 = $mw->Frame(-borderwidth=>2,-relief=>groove)->pack();

####### Scrollbares Frame erstellen
$Pane = $fr1->Scrolled(Pane, -scrollbars => 'e' );
$Pane->pack();


foreach(0..10)
{
  $label1 = $Pane->Label(-text => text1)->pack(-side => top);
  $fr2 = $Pane->Frame(-width => 300, -height => 12,-borderwidth=>2,-relief=>groove)->pack();
  $label2 = $Pane->Label(-text => text2)->pack(-side => top);
}

MainLoop;