Select Code to Download

#!/usr/bin/perl -l

...
  my $weekday = strftime($fmt, 0, 0, 0, $day , $mon - 1, $yr - 1900, -
+1, -1, -1);
  printf("%s\n", "$weekday");
}

#!/usr/bin/perl -l

...
for my $yday1 (272, 273, 274) {
  print Date_to_Text(Add_Delta_Days($yr1, 1, 1, $yday1));
}