use strict; use Tk; use Tk::NoteBook; my $id = 0; my $top = MainWindow->new(-title => 'client'); $top->geometry("500x100+0+0"); my $nb = $top->NoteBook()->pack(); $top->Button(-text => "Click", -command => \&add_tab)->pack(); add_tab() for 1 .. 3; MainLoop(); sub add_tab() { $nb->add(++$id, -label => $id); }