Countdown to 2038

#! perl -wl
$t=time;
$_=unpack("B*",pack "N",$t);
s/^0//;$d=2147483_647-$t;
$d++;
print "Unix time in binary is $_.";
print "There are $d seconds remaining."

On Sat Feb 25 06:58:08 2006, the counter will hit 1000100000000000000000000000000, only two bits set. On Sat May 13 01:27:28 2006, there will be only 1 billion seconds remaining.

I would like to see, as a work of art, a mechanical binary clock which counts forwards, with a way of a indicating a connection being made when the clock hits 31 ones, perhaps an electrical connection to a bomb. Lights for the consecutive low-order bits that are positive.