>8 -------------------------------------------

while (1)
{
$min = sprintf "%2.2d",(localtime(time))[1];                
$hour = sprintf "%2.2d",(localtime(time))[2];

------------------------------------------- 8<