Time::HiRes [Perl]

use warnings;
use strict;
use Time::HiRes qw(gettimeofday tv_interval usleep);

my $time_begin = [gettimeofday];

             # Sleep 
usleep 1e6 + # 1 plus
 3/4 * 1e6 ; # 0.75 seconds..

my $time_elapsed = tv_interval($time_begin);

print $time_elapsed, "\n";