$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)
}

);