perl -MDateTime -E 'our $first_kiss = DateTime->new( year => 2007, month => 3, day => 10 ); say $first_kiss->delta_days( DateTime->now )->delta_days'
1000
Talk about serendipity, finding out about this 3 days before the actual date!
Taking her to dinner now ;-)