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

# Get the timestamp (down to microseconds) 
($secs_since_epoch, $microseconds) = gettimeofday();
print "$secs_since_epoch$microseconds\n";

# Get the timestamp (down to microseconds) 
($secs_since_epoch, $microseconds) = gettimeofday();
print "$secs_since_epoch$microseconds\n";