#start thread
$thr = threads->new(\&sub1);
#setup timer to process in 500ms intervals
$mw->repeat(500 => \&update_display);
MainLoop();

sub update_display{
	print "Running from Mainloop\n";
 	$mw->update;
}

sub sub1{
        while (1){
          print "Running From thread\n";
          sleep(1);
        }
}