[perl-win32-gui] system tray icon

[Hoff Miller]

This sets the icon correctly to tool.ico:
my $icon = new Win32::GUI::Icon("tool.ico");
$trayicon = $Window->AddNotifyIcon(-name => "TrayIcon", -id=>1,-icon => $icon, 
-tip => "$title");

Now, I'd like to change the icon based on a timer in the program.  I can change
the window's icon but not the system tray icon.  Is it possible to dynamically
change the system tray icon?

Hoff Miller