Reiterelement
•#!/usr/bin/perl
•use strict;
•use warnings;
•use Tk;
•use Tk::NoteBook;
•my $mw = new MainWindow;
•
•my $nb = $mw->NoteBook()->pack();
•
•my $page1 = $nb->add('PageID-1',
•                     -label => 'Reiter Eins', );
•my $page2 = $nb->add('PageID-2',
•                     -label => 'Reiter Zwei', );
•
•$page1->Label(-text => 'In Seite 1')->pack();
•$page2->Label(-text => 'In Seite 2')->pack();
•
•MainLoop();