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

print "go to sleep\n";

my $start = [Time::HiRes::gettimeofday()];

# lets stop for 5 seconds
sleep 5;

my $elapsed = Time::HiRes::tv_interval($start);

print "Elapsed time: $elapsed seconds!\n";