use Tk;
use Tk::NoteBook;
		
my $mw = MainWindow->new;
$mw->geometry('300x200');
		 
		 
my $page_tab_default_font = 
             [-family =>'Linotype Birka',
              -size => 15, 
              -weight => 'normal', 
              -underline => 0];	 

my $page_tab_select_font = 
             [-family =>'Linotype Birka', 
              -size => 15, 
              -weight => 'bold', 
              -underline => 1];	
		 
my $nb_widget = $mw->NoteBook(-font=>$page_tab_default_font)
                         ->pack(-expand=>1, -fill=>'both');
my $nb_page_01= $nb_widget->add("page1", -label=>'PAGE 1',
                               -raisecmd=>\&raised_handler);
my $nb_page_02=$nb_widget->add("page2", -label=>'PAGE 2', 
                               -raisecmd=>\&raised_handler);

MainLoop;
		 
		 
sub raised_handler {
     my $raised_page =    
              $nb_widget->page_widget($nb_widget->raised());
     #
     # HOW DO I PROCEED FURTHER ?????
     #
 }