use strict;
use Win32::SysTray;
 
my $tray = new Win32::SysTray (
        'icon'   => 'C:\images\logo.ico',
        'single' => 1,
) or exit 0;
 
$tray->setMenu (
        "> &Test" => sub { print "Hello from the Tray\n"; },
        ">-"      => 0,
        "> E&xit" => sub { return -1 },
); 
 
$tray->runApplication;