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

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