at the start of your script record the value of time()

See http://perldoc.perl.org/perlvar.html#$^T (but note that that is not a read-only variable).