#!/usr/bin/perl

use Tk;
use Tk::NoteBook;

my $mw = new MainWindow;

my $nb = $mw->NoteBook()->pack();

my $page1 = $nb->add('PageID-1', -label => 'ReiterEins');
my $page2 = $nb->add('PageID-2', -label => 'ReiterZwei');
$page1->Label(-text => 'In Seite 1')->pack();
$page2->Label(-text => 'In Seite 2')->pack();

MainLoop();