#!/usr/bin/perl

use strict;
use warnings;

use Time::HiRes;

while (1) {
    print("Core : ", scalar localtime(), "\n");
    print("HiRes: ", scalar localtime(Time::HiRes::time), "\n\n");
    sleep(60);
}