Select Code to Download

Select or download this

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($yearsta
+rt, int(rand($yeardays)) . "days"); print UnixDate($randday, "%B %e, 
+%Y\n");' 1985

Select or download this
```
September  8, 1985
```

Select or download this

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

Select or download this
```
my $yearstart = $ARGV[0];
```

Select or download this

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

Select or download this

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

Select or download this

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

Select or download this

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