#!/usr/bin/perl
use Time::HiRes qw(gettimeofday);

my @timings = (0,0,0,0);
#discard once
@timings = (gettimeofday(), gettimeofday());

@timings = (gettimeofday(), gettimeofday());
print "$timings[0]$timings[1]\n";
print "$timings[2]$timings[3]\n";

__OUTPUT__
1133364015468783
1133364015468783