use Date::Calc qw (Delta_Days);
print Delta_Days (1904,1,1, 2013,3,5) + 1462 , "\n";