$id = 1;
  $icon = new Win32::GUI::Icon('gfx/icon.ico');
    $main2 = Win32::GUI::Window->new(
        -name   => 'Main',
        -text   => 'Perl',
        -width  => 200,
        -height => 200,
    );

      $ni = $main2->AddNotifyIcon(
       -name => "systray",
        -id   => $id,
        -icon => $icon,
        -tip  => $guitxt{tray'}  );