use Tk;
$mw = tkinit;
$nb = $mw->NoteBook->pack;
$nb->add("page$_", -label => "page$_") for 1..5;
for my $page ($nb->pages) {
    my $f= $nb->page_widget($page);
    $f->Label(-text => $page)->pack;
}
MainLoop;