use strict; 
use Win32::GUI();
                
        my $Menu_id=1;
       
        my $Menu = new Win32::GUI::Menu();
        
        
        my $MenuButton1 = $Menu->AddMenuButton(
                -text => "Menu",
                -id => $Menu_id++,
        );
        
        my $MenuButton1_Quit = $MenuButton1->AddMenuItem(
                -text => "Quit",
                -id => $Menu_id++,
                -onClick => sub{print"program closed\n"; return -1;},
        );
        
        my $MenuButton1_About = $MenuButton1->AddMenuItem(
                -text => "About",
                -id => $Menu_id++,
                -onClick => $MessageBox_About->DoModal(),
        );