use strict;
use warnings;
use Tk;
my $mw = tkinit;

my $note = $mw->NoteBook()->pack();
$note->{-dynamicgeometry} = 1;
my @pages = map {$note->add("page$_")} (0..3);
for (0..3){$pages[0]->Label(-text => 'label')->pack;}
for (0..20){$pages[1]->Label(-text =>'label')->pack;}


MainLoop;