my $v = 0;
share ($v);
$mw->traceVariable(\$v, 'w' => [\&update_meter]);

my $thr = threads->new(\&sub1);

sub sub1{
	while (1){
     	$v+= 1;
     	sleep(1);
     	print $v.":";
	}
}