my $mw = MainWindow->new(); $mw->geometry("600x400+30+30"); my $nb = $mw->NoteBook()->pack(-expand => 1, -fill => 'both', -padx => '20', -pady => '30'); # Page 1 my $p1 = $nb->add('page1', -label => 'Users'); &doUserPageUi($p1, $dbh); # Page 2 my $p2 = $nb->add('page2', -label => 'Sources'); # Page 3 my $p3 = $nb->add('page3', -label => 'Projects'); # Page 4 my $p4 = $nb->add('page4', -label => 'Import'); # Page 5 my $p5 = $nb->add('page5', -label => 'Pull List');