use Tk;

$top = new MainWindow(-title=>"window1");
$menu = $top->Menu();
$filemenu = $menu->Menubutton(-label => "Test");
$exitButton = $filemenu->command(-label => "Test");
$top->configure(-menu => $menu);

$top2 = new MainWindow(-title=>"window2");
$menu2 = $top2->Menu();
$filemenu2 = $menu2->Menubutton(-label => "Test2");
$exitButton2 = $filemenu2->command(-label => "Test2");
$top2->configure(-menu => $menu);

MainLoop();