leap second inspector.

leapwatch.pl

#!/usr/bin/perl

use strict;
use warnings;

use Time::HiRes qw(usleep time);

while(1) {
  printf "%s [%s]\n", time, scalar localtime;
  # 0.1秒 = 10**5 microsecond
  usleep 10**5;
}