SYNOPSIS use Date::Leapsecond; use Time::Local;
$epoch_2000 = timegm(0,0,0,1,0,2000 - 1900); $epoch_1990 = timegm(0,0,0,1,0,1990 - 1900); print "Seconds between years 1990 and 2000 are "; print Date::Leapsecond::ut1($epoch_2000) - Date::Leapsecond::ut1($epoch_1990); print " instead of "; print $epoch_2000 - $epoch_1990; --------------------------- The following module was proposed for inclusion in the Module List: modid: Date::Leapsecond DSLIP: adpfp description: translates between UTC and UT1 timescales userid: FGLOCK (Flávio Soibelmann Glock) chapterid: 6 (Data_Type_Utilities) communities: [EMAIL PROTECTED], [EMAIL PROTECTED] similar: Date::Leapyear rationale: This module can be used to calculate precise time laps, since the unix epoch does not take care of leap seconds (as far as I know). enteredby: FGLOCK (Flávio Soibelmann Glock) enteredon: Wed May 29 18:34:27 2002 GMT The resulting entry would be: Date:: ::Leapsecond adpfp translates between UTC and UT1 timescales FGLOCK