Same here. The only code changes I made were to avoid indirect object creation, and to check the error on its own line. However, I would not imagine those would have any effect on the larger program.

# ...

my $tray = Win32::SysTray->new (
        'icon'   => 'C:\images\somelogo.ico',
        'single' => 1,
);

exit 0 if !$tray;

# ...
[download]