perl -MDateTime -le'$d = DateTime->new(year=>$ARGV[0]);
                    $d->add(days => rand($d->is_leap_year?366:365));
                    print $d->ymd' year