#!/usr/bin/perl

####################################
# Khrono: another obfu by X-3mE'89 #
####################################
# built with mask.pl v0.1_alpha    #
# for perlmonks.org                #
####################################

$_=q%

my$minutes=0;my$seconds=0;my$cseconds=
0;while(true){select(undef,undef,undef
,0                                  .0
1)   ;$cs   econ        ds++    ;   if
($  c    s e    c           o   n   ds
>=  1    0 0    )  {$       c   s   ec
on                      ds=0        ;$
se  c    o n    d  s+  +        }   if
($  s    e c    o      n        d   s>
=6   0){$   seco        nds=    0   ;$
mi                                  nu
tes++}print"\ecAnother^Obfu^by^X-3mE'8
9\x0a$minutes:$seconds:$cseconds\x0a"}

%;

s/\s//g;
s/\^/ /g;
eval