$ perl -MDate::Calc=Date_to_Days -le 'print Date_to_Days(2003,9,3);'
731461