The simple approach would be to use Date::Simple e.g

use Date::Simple qw/ date today /;

my $past = '2004-02-09';
printf "%d days have passed since %s\n", today() - date($past), $past;

__output__

58 days have passed since 2004-02-09
[download]