use strict;
use warnings;
use Win32::GUI qw(:all);
my $MainIcon = new Win32::GUI::Icon("icon.ico");

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

my $MainMenu = new Win32::GUI::Menu(
	'Popup'   => 'Popup',
    '>icontest' => "icontest",
);
$MainMenu->{icontest}->Change( -class => $MainIcon_class );
my $mw = Win32::GUI::Window->new(
        -title => "icon test",
        -size => [500,300],
		-menu => $MainMenu
);
$mw->Show();
Win32::GUI::Dialog();