#!/usr/bin/perl -w
use strict;

use Tk;

my $status = 0;
my $prev_status = 0;

my $mw = MainWindow->new();
$mw->withdraw();

while (1)
{
	my $status = check_for_status();
	
	if ($status != $prev_status)
	{
		# need to notify user but don't wait for click
	
		$mw->messageBox(
			-title		=> 'status changed',
			-message	  => 'status changed',
			-type		 => 'OK',
			-icon		 => 'info',
		);	
	}
	
	$prev_status = $status;
}