use Tk;
use Tk::NoteBook;


######### Making the main Window ##########
$mw = MainWindow->new;
$mw->geometry("700x600");
$mw->title("tabbed window");
# Create the notebook and fill the whole window
$nb = $mw->NoteBook( )->pack(-expand => 1, -fill => 'both');
####### Create page 1 ##########
$p1 = $nb->add('page1', -label => 'Page 1');
$p1->Button(-text => 'go to page 2 ')->pack( );
####### Create page 2 ##########
$nb->add('page2', -label => 'Page 2', -state=>'disabled');
MainLoop;