#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes qw( clock_gettime clock_getres );

my $realtime   = clock_gettime('CLOCK_REALTIME');
my $resolution = clock_getres('CLOCK_REALTIME');

print "Realtime: ".$realtime."\n";
print "Resolution: ".$resolution."\n";