Rate      interval   HiRes::time buitin time()
interval        88470/s            --          -53%          -95%
HiRes::time    188363/s          113%            --          -89%
buitin time() 1753092/s         1882%          831%            --

##</code><code>##

#!/usr/bin/perl

use Time::HiRes;
use Benchmark qw(:all) ;

# Use Perl code in strings...
cmpthese(-1, {
        'interval' => sub { my $t0 = [Time::HiRes::gettimeofday];
                         my $elapsed = Time::HiRes::tv_interval($t0)}
        ,
        'HiRes::time' => sub { my $t0 = Time::HiRes::time();
                         my $elapsed = Time::HiRes::time() - $t0;
        },
        'buitin time()' => sub { my $t0 = time;
                         my $elapsed = time - $t0;
        },
    });