#! perl -slw
use strict;
use Date::Manip;

print UnixDate( 
    DateCalc( 
        ParseDate('December 28, 1800')
    , '+72583 days')
, '%Q');
__END__
C:\test>248106
19990919