#!/usr/bin/perl --

use strict;
use warnings;

use Time::Elapse;

Main(@ARGV);
exit(0);

sub Main {
  Time::Elapse->lapse( my $now = 'Reference Time' );
  print "$now\n";
  sleep 2;
  print "$now\n";
  sleep 1;
  $now = 'Did something';
  print "$now\n";
} ## end sub Main

__END__
16:00:00.000064 [Reference Time]
16:00:02.000000 [Reference Time]
16:00:00.000069 [Did something]