#!/usr/bin/perl 

use Tk; 
use Win32::GUI; 

our %config = (); 

my $main = MainWindow->new( 
    -height => 30, 
    -width => 50 
); 

$win32 = Win32::GUI::Window->new( 
    -name => 'Main', 
    -text => 'Perl TrayIcon', 
    -width => 0, 
    -height => 0, 
    -visible => 0 
); 

my $icon = new Win32::GUI::Icon('19.ico'); 


my $ni = $win32->AddNotifyIcon( 
    -name => "systray", 
    -id => 1, 
    -icon => $icon, 
    -tip => "Icon in der Systray" 
); 

sub systray_RightClick { 
    my $systray_menu = new Win32::GUI::Menu( 
        "SystrayMenu Functions" =>"SystrayMenu", 
        "> hier klicken" => 'test' 
    ); 
    my($x, $y) = Win32::GUI::GetCursorPos(); 
    $win32->TrackPopupMenu($systray_menu->{SystrayMenu},   $x, $y-50); 
} 

sub test { 
    print "hallo\n"; 
} 

MainLoop;