#!/usr/bin/perl -l

use strict;
use warnings;

use Time::Local;
use POSIX qw(strftime);

my $fmt = "%A"; # %a = abbreviated weekday %u = weekday number;

my $yr1 = 2008 - 1900;
for my $yday1 (272, 273, 274) {
  my $mytime = timelocal(1,0,0,1,1,$yr1);
  $mytime += ( 86400 * $yday1);

  my ($sec,$min,$hour,$day,$mon,$yr,$wday,$yday,$whocares) = localtime($mytime);
  $yr += 1900;

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