perl - Perl/Tk アプリケーションで 1 つのモジュールが既に開かれているかどうかを確認する方法

Question

のメニュー バーで、オプションをクリックすると、同じモジュールを 2 回、3 回など開くことができます。ただし、既に開いている場合は、再度開くことはできません。それを行う方法はありますか？Perl/Tk MainWindow

$mw = MainWindow->new;
$mw->configure(-menu =>  $menubar = $mw->Menu);
$bikes=$menubar->cascade(-label => '~Bikes');
$cars = $menubar->cascade(-label => '~Cars');


$cars->command(-label => 'Honda', -command=>\&honda_cars);
$cars->command(-label => 'Chevrolet',-command=>\&Chevrolet_cars);

$bikes->command(-label => 'Honda', -command=>\&honda_bikes);
$bikes->command(-label => 'Bajaj', -command=>\&bajaj_bikes);

シボレーをクリックすると、メニューバーのオプションをクリックするたびに同じウィンドウが再び表示されます。すでに開いているかどうかを確認したいので、再度開くべきではありません。