use Time::HiRes qw(gettimeofday);
  $t0 = gettimeofday;

  ### your code here ###

  $t1 = gettimeofday;
  $elapsed = $t1 - $t0;
  # elapsed is a floating point value, representing the
  # number of seconds between $t0 and $t1