In article <[EMAIL PROTECTED]>, fglock <[EMAIL PROTECTED]> wrote: >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;
Looks good. How do you handle the future? Right now we only know the actual leap seconds through 2002/12/30. But you could make some kind of prediction for dates beyond that.