#!/path/to/perl

# This snippet works as expected
use strict;
use Time::HiRes qw(gettimeofday tv_interval);

my $now = [gettimeofday];
sleep 2;
# The below produces "Elapsed: 2.01233"
print "Elapsed: ", tv_interval($now, [gettimeofday]), "\n";