You forgot to format $hour and $min in the while loop.

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

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

------------------------------------------- 8<
[download]

:) Sir Muskrat