perl -MDateTime -le 'print DateTime -> new(year=>$ARGV[0]) -> add(days=>rand(365)) -> ymd' 2013