いちおう思いついたものを書いておく。
何ヶ月と何日、はDate::Calcモジュールでは簡単には出せなそう。
$ perl -MDate::Calc=:all -e'$ARGV[0]+=17;printf"17歳と%d日$/",Delta_Days@ARGV,Today' 1982 12 10 17歳と3428日
追記：月と日
やっぱりDateTimeモジュールを使うのが手堅い気がした。
perl -MDateTime -le'$_=DateTime->now-DateTime->new(day,pop,month,pop,year,17+pop);printf"17歳と%dヶ月と%d日$/",$_->delta_months,$_->delta_days' 1982 12 10 17歳と112ヶ月と19日
でもたぶんこれ、時差を吸収できてないな…時間帯によっては１日ずれるかも？
