use POSIX;
use Time::HiRes qw(gettimeofday sleep);

while("You hate leapseconds"){
    my ($sec, $usec) = gettimeofday;
    printf("%s.%06d\n", POSIX::strftime('%H:%M:%S', localtime($sec)), $usec);
    sleep(0.1)
}