Another CPAN module to give the answer: Date::Manip.

#!/usr/bin/perl
use strict;
use warnings;

use Date::Manip;

my $delta = DateCalc(ParseDate('1/1/1904'), ParseDate('3/5/2013'));
print 1462 + Delta_Format($delta, 0,'%dt'), "\n";
[download]