http://www.perlmonks.org?node_id=1026944


in reply to binary clock from java.dzone.com

Golf? Without really changing the logic, just using shorter notation:
# 1 2 3 4 5 #12345678901234567890123456789012345678901234567890123456789 $_+=(unpack"%32B*",pack"i3",gmtime++$i)||$x++until$x;print
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ