$vars{SysTrayIcon} = new Win32::GUI::Icon('gfx/icon.ico');
new Win32::GUI::NotifyIcon(
  $vars{MainWindow},
  -name => "Notify",
  -id => 100,
  -icon => $vars{SysTrayIcon},
  -tip => "Dies ist ein Systray-Icon");



$scr->DropSite(
   -dropcommand => [\&Dropit, $scr],
   -droptypes => 'Win32'


sub Dropit
{
     #popup anzeigen (wirklich parsen? JA /NEIN)
}

);