#!perl
use strict;
use Time::Piece;
use Time::Seconds;
my $today  = localtime;
while (my $mdy = <DATA>){
  chomp($mdy);
  my $dt = Time::Piece->strptime($mdy,"%m%d%Y");
  my $age = int (($today - $dt) / ONE_DAY);
  print "$mdy $age\n";
}
__DATA__
11012014
11132014
10092014
09092014
11112015
01012015
04012015
01042011
10122014
[download]