use v5.14;

#!/usr/bin/perl

use strict;
use warnings;
use Time::Piece;

my $t = Time::Piece->new();
my $year = $ARGV[0] || 2014;

foreach my $month ( 1 .. 12 ) {

    #Make an object with first day of each month and use it to get last day of each month
    my $tFirstDayObject = $t->strptime( "$year/$month/1", "%Y/%m/%d" );
    my $monthLastDay = $tFirstDayObject->month_last_day;

    #Now make an object with this last date and use it to get last weekDay number
    my $tLastDayObject = $t->strptime( "$year/$month/$monthLastDay", "%Y/%m/%d" );
    my $weekDay = $tLastDayObject->wday;

    #Now calculate how many days to add in this weekDay taking Sunday as the first day
    my $daysToMoveBack = 0;
    $weekDay >= 6 ? ( $daysToMoveBack = $weekDay - 6 ) : ( $daysToMoveBack = $weekDay + 1 );
    my $lastFridayDate = $monthLastDay - $daysToMoveBack;

    #Now make an object with this $lastFridayDate for each month
    my $tLastFridayObject = $t->strptime( "$year/$month/$lastFridayDate", "%Y/%m/%d" );
    say $tLastFridayObject->cdate;

}