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

my ($secs1,$sec2,$micro1,$micro2);
#discard once
gettimeofday();
($secs1, $micro1) = gettimeofday();
($secs2, $micro2) = gettimeofday();
print "$secs1$micro1\n";
print "$secs2$micro2\n";

__OUTPUT__
1133355471176848
1133355471176850