Perl/TK, Menüstruktuer mit Buttons

[Steffen]

Hallo liebe Forumsgemeinde,

bin Perl/TK Neuling und steh schon am Anfang vor nem kleinen Problem.

Beim Folgenden Script
will ich links nen paar Buttons haben und Links dann das Fenster wo man Arbeitet (je nachdem welches Menü durch den Button gewählt wurde)

jedoch erstellt der beim wechseln der Menüs durch die Buttons alles mehrfach...

Sicherlich muss ich das irgendwie schliessen...
klar mit destroy  aber is das die korrekte lösung?
müsste sich das nicht überlagern???

am besten ihr schaut euch das kurze Script mal an und startet es dann wisst ihr was ich meine

DANKE & Gruß
Steffen

#! /usr/bin/perl -w

use strict;
use Tk;
use Tk::NoteBook;
use Win32::GUI;

my ($DOS) = Win32::GUI::GetPerlWindow();
Win32::GUI::Hide($DOS);

my $main = MainWindow->new;

my $frame_left=$main->Frame()->pack(-side => 'left');
my $frame_right=$main->Frame()->pack(-side => 'right');

my $schalter1 = $frame_left->Button("-text" => "Mitarbeiter","-height" => 2,"-width" => 10,"-command" => [&Show_Mitarbeiter] )
     ->pack();
my $schalter2 = $frame_left->Button("-text" => "Dienste","-height" => 2,"-width" => 10,"-command" => [&Show_Dienste] )
     ->pack();
my $schalter3 = $frame_left->Button("-text" => "Ende","-height" => 2,"-width" => 10,"-command" => sub { print "Zurück in der Konsole\n"; exit 0; } )
     ->pack();

MainLoop;
Win32::GUI::Show($DOS);

##############################################################

Subroutinen

sub Show_Mitarbeiter {
#$frame_right->destroy;
my $radio1=$frame_right->Radiobutton(-text => "Optionsfeld 1" )
                                     ->pack();
my $radio2=$frame_right->Radiobutton(-text => "Optionsfeld 2")
                                     ->pack();

}

Dienste anzeigen

sub Show_Dienste {
my $nb = $frame_right->NoteBook()->pack();
my $page1 = $nb->add('PageID-1', -label => 'Dienste');
my $page2 = $nb->add('PageID-2', -label => 'neuer Dienst');
 }