use strict;
use Tk;
use Tk::NoteBook;

my $MainWindow = MainWindow->new(-title => 'Testing Notebook Widgets');

my $FirstNoteBook = $MainWindow->NoteBook()->pack(-expand => 1, -fill=>'both');
my $SecondNoteBook = $MainWindow->NoteBook()->pack(-expand => 1, -fill => 'both');

my $PageOne = $FirstNoteBook->add('page1', -label=> 'NB 1 Page 1');
my $PageTwo = $FirstNoteBook->add('page2', -label=> 'NB 1 Page 2');
my $PageThree = $SecondNoteBook->add('page3', -label=> 'NB 2 Page 1');
my $PageFour = $SecondNoteBook->add('page4', -label=> 'NB 2 Page 2');

MainLoop;