use Win32::GUI;
my $isOn=0;
$Test = new Win32::GUI::Icon("on.ico");
$TrayIcon = new Win32::GUI::NotifyIcon(
    $Main,
    -name => "Tray",
    -icon => $Test,
);
while(1){
  #insert fancy monitoring code here
  sleep(15);
}