Win32::GUI значок обновления в трее не работает

Question

Значок в трее не меняется. Что может быть причиной? Я использую последнюю версию Strawberry Perl v5.20.2 x86, Win32::GUI v1.11, Windows 7 x64.

use strict;
use warnings;
use Win32::GUI;


my $main = Win32::GUI::Window->new(
-name => 'Main',
-text => 'Perl',
-width => 200,
-height => 200
);

my $icon = new Win32::GUI::Icon('1-0.ico');
my $ni = $main->AddNotifyIcon(
-name => "NI",
-icon => $icon
);

my $icon2 = new Win32::GUI::Icon('0-0.ico');


Win32::GUI::Dialog();
while(1)
{
    $ni->Change( -icon => $icon );
    sleep(5);
    $ni->Change( -icon => $icon2 );
    sleep(5);
}

Answer 1

Win32::GUI::Dialog();

Должен быть установлен после цикла while, чтобы работать.:(