#!/usr/bin/perl

use strict;
use warnings;

use Date::Calc qw(check_date Add_Delta_Days Monday_of_Week Week_of_Year Compress Today Date_to_Text);

if (check_date(@ARGV)) {
	my @friday = Add_Delta_Days(Monday_of_Week(Week_of_Year(@ARGV)), 4);
	my ($week, $year) = Week_of_Year(@friday);
	my $present = Compress(@friday) > Compress(Today());
	
	# It is an odd week, so I have Friday off.
	if ($week % 2) {
		my $do_verb = $present ? "DO" : "DID";
		print "You $do_verb have " . Date_to_Text(@friday) . " off.\n";
	}
	else {
		my $dont_verb = $present ? "DON'T" : "DIDN'T";
		print "You $dont_verb have " . Date_to_Text(@friday) . " off.\n";
	}
}
else {
	print "Usage.\n";
}