You may be interested in:

use strict;
use warnings;
use Tk;
use Tk::NoteBook;

my $obj = bless {}; # Light weight object makes passing stuff around e
+asier

$obj->{main} = MainWindow->new( );
$obj->{notes} = $obj->{main}->NoteBook()->pack();
$obj->{notes}->add ('Master', -label => 'master')->pack();

for my $key (qw'x y z') {
    $obj->{"but$key"} =
        $obj->{main}->Button (
            -text => "Add Tab $key",
            -command => [\&addRemove_tab, $obj, $key],
            )->pack();
}

MainLoop();


sub addRemove_tab {
    my ($self, $key) = @_;

    if (exists $self->{"note$key"}) {
        $self->{notes}->delete ($key);
        delete $self->{"note$key"};
        $self->{"but$key"}->configure (-text => "Add Tab $key");
    } else {
        $self->{"note$key"} = $self->{notes}->add ($key, -label => $ke
+y)->pack();
        $self->{"but$key"}->configure (-text => "Rem Tab $key");
    }
}
[download]