#!/usr/bin/perl

=head1 DESCRIPTION

Watch Julian time fly...

=cut

use strict; 
use warnings;
use Astro::Montenbruck::Time qw[jdnow jd2mjd jd_cent];

$|++; print
sprintf("%-22s","Julian day").
sprintf("%-22s","Modified Julian day").
sprintf("%-22s","Julian centuries since J2000.0")."\n";

while () {

  my $j = jdnow();

  print "\r".
  sprintf("%-22s",$j).
  sprintf("%-22s",jd2mjd($j)).
  sprintf("%-22s",jd_cent($j));

  sleep 1
}