perl -we 'use Date::Manip; my $yearstart = ParseDate(UnixDate($ARGV[0], "%Y")); my $yeardays = Delta_Format(DateCalc($yearstart, DateCalc($yearstart, "+1 year")), 3, "%dt"); my $randday = DateCalc($yearstart, int(rand($yeardays)) . "days"); print UnixDate($randday, "%B %e, %Y\n");' 1985