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

##</code><code>##

September  8, 1985

##</code><code>##

my $yearstart = ParseDate(UnixDate($ARGV[0], "%Y"));

##</code><code>##

my $yearstart = $ARGV[0];

##</code><code>##

my $yeardays = Delta_Format(DateCalc($yearstart, DateCalc($yearstart, "+1 year")), 0, "%.3dys"); 

##</code><code>##

my $randday = DateCalc($yearstart, int(rand($yeardays)) . "days");

##</code><code>##

print UnixDate($randday, "%B %e, %Y\n");

##</code><code>##

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