use Date::Calc 'Delta_Days';
print Delta_Days(2005,10,31,2005,11,1);