#!/usr/local/bin/perl

use strict;
use Date::Simple;

sub getWeekDay{
  my $year = shift;
  my $month = shift;
  my $day = shift;
  
  my $date = Date::Simple->new($year, $month, $day);
  my $day_of_week = $date->day_of_week;

  for(my $i = 1; $i<=5; $i++){
    my $week_day = $date - $day_of_week + $i;
    print $week_day->format("%Y/%m/%d(%a)\n");
  }
}

getWeekDay(2009, 12, 31);