плиз, переведите на пхп

uses
crt;

var
s, m, ch: integer;

begin
while true do
begin
sleep(1000);
clrscr;
s := s + 1;
Writeln(ch, ' : ', m, ' : ', s);
if s = 61 then begin
s := 0;
m := m + 1;
clrscr;
Writeln(ch, ' : ', m, ' : ', s);
end
else
if m = 61 then begin
s := 0;
m := 0;
ch := ch + 1;
clrscr;
Writeln(ch, ' : ', m, ' : ', s);
end
else
end;
end.