$_+=$a while($a=unpack"%32B*",pack"i3",gmtime++$i);print