use Tk;
use Tk::NoteBook;

my $top = MainWindow->new( );
my $nb = $top->NoteBook()->pack();
add_tab();
$top->Button( -text => "Add Tab", -command => \&add_tab )->pack();
$top->Button( -text => "Delete Tab", -command => \&delete_tab )->pack(
+);

MainLoop();

sub delete_tab { $nb->delete($i--) }

sub add_tab {    $nb->add(++$i, -label => $i )->pack() }
[download]