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

my $mw;

die "\n" unless defined eval {
  $mw = MainWindow->new(-title=>"Window");
};
$mw->protocol('WM_DELETE_WINDOW',sub{exit});
$mw->optionAdd('*font'=>"Fixed 10");

my $statusBar = $mw->Frame(-relief=>"raised", -borderwidth=>2)->
  pack(-expand=>1, -fill=>'x', -side=>'bottom', -anchor=>'s');
$statusBar->Label(-text=>"Progress: ")->pack(-side=>"left");
my $menubar = $mw->Menu;
$mw->configure(-menu=>$menubar);
my $file_menu = $menubar->cascade(-label => '~File', -tearoff => 0);

##### Code in Question ####
my $notebook = $mw->NoteBook()->pack(-expand=>1,-fill=>'both');
my $setupPage = $notebook->add("page1", -label=>"Setup", -underline=>0);

MainLoop;