$a=.888*time>>24,$b=23,print map chr$b+ord,split//,qq(3*$a);