#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes 'usleep';

while (1) {
    print "Core : ", CORE::time, "\n";
    print "HiRes: ", Time::HiRes::time,  "\n\n";
    usleep (60_000_000);
}