#!/usr/bin/env python
import time
while True:
   t = time.time ()
   print t
   time.sleep (1.11 - t + int (t))

#!/usr/bin/env python
import sys, time

count_to = 1111111111
divisions = 20.0

while True:
  t = time.time()
  ct = count_to - t
  ch,ct = divmod(ct, 3600)
  cm,cs = divmod(ct, 60)
  print "\r%.2f (remaining: %dh %dm %.2fs)" % (t, ch, cm, cs),
  sys.stdout.flush()
  time.sleep(1.0 / divisions - t + int(t * divisions) / divisions)

#!/usr/bin/perl
use strict;
use warnings;

use Gtk2 -init;
use Glib qw(TRUE FALSE);

my $label = Gtk2::Label->new( scalar time );
$label->modify_font(
    Gtk2::Pango::FontDescription->from_string( "Monospace Bold 72" )
);
Glib::Timeout->add( 250, sub { $label->set_text( scalar time ); TRUE; } );

my $window = Gtk2::Window->new();
$window->signal_connect( delete_event => sub { Gtk2->main_quit } );
$window->set(
	title => 1111111111,
	resizable => FALSE,
	child => $label,
);
$window->show_all;

Gtk2->main;