#! /usr/bin/perl -wl
for(;;){
$t=time;
$_=unpack("B*",pack "N",$t);
s/^0//;
tr/01/_+/;
$d=2147483_647-$t;
$d++;
print "\nThe time is $_.";
print "There are $d seconds remaining.";
sleep 1;
}