agecounter

/age {
  var %age $ctime - $ctime(June 29 1990 09:21:00)
  var %mil $round($calc(%age /60 /60 /24 /365.242199 /1000),2) millenia
  var %cen $round($calc(%age /60 /60 /24 /365.242199 /100),2) centuries
  var %dec $round($calc(%age /60 /60 /24 /365.242199 /10),2) decades
  var %yea $round($calc(%age /60 /60 /24 /365.242199),2) years
  var %mon $round($calc(%age /60 /60 /24 /365.242199 *12),2) months
  var %wee $round($calc(%age /60 /60 /24 /7),2) weeks
  var %day $round($calc(%age /60 /60 /24),2) days
  var %hou $round($calc(%age /60 /60),2) hours
  var %min $round($calc(%age /60),2) minutes
  var %sec %age seconds
  say My age in different formats: %mil $+ , %cen $+ , %dec $+ , %yea $+ , %mon $+ , %wee $+ , %day $+ , %hou $+ , %min $+ , %sec
}