our $ni;

$ni = $win->AddNotifyIcon (
 -icon => $ico[0],
 -tip => "Look both ways before crossing the street",
);

##</code><code>##

$ni->Change( -icon => $ico[$index] );