my $MainIcon = new Win32::GUI::Icon("perl.ico");

  my $MainIcon_class = new Win32::GUI::Class
       -name => "MainIcon_Class",
       -icon => $MainIcon,
  );

my $MainMenu = new Win32::GUI::Menu(
     
 -class  => $MainIcon_class,
);