use Tk;
$mw = MainWindow->new(  );
# Create the notebook and fill the whole window
$nb = $mw->NoteBook(  )->pack(-expand => 1, -fill => 'both');
# Page 1 on the notebook, with button on that page
$p1 = $nb->add('page1', -label => 'Page 1');
$p1->Label(-text => 'Seite 1!')->pack(  );
# Empty page 2
$p2 = $nb->add('page2', -label => 'Page 2');
$p2->Button(-text => 'Seite 1!')->pack(  );
MainLoop;