$ perl -MDate::Simple=date -wle 'print date("2009-11-18") - 40135'
1899-12-30