sub CheckTime {
	$exeTime=18;
	$Hour=shift(@_);
	$loopStop=0;
while ($loopStop==0) {
	  sleep(1); # 1 = 1s
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	
$ZWIDGETS{'Text1'} -> insert('end',"Waiting......\n");

if ($hour==$exeTime) { $loopStop=1; $ZWIDGETS{'Text1'} -> insert('end',"Starting.....\n");}
	   }
	  return $hour;
}

##</code><code>##

&CheckTime($HourGet);
MainLoop();