#         1         2         3         4         5         
#12345678901234567890123456789012345678901234567890123456789
 $\+=unpack("%32B*",pack"i3",gmtime$_)for(1..86400);print