#!/usr/bin/perl

use strict;
use warnings;

use Time::Piece;

# Create Time::Piece New Object
my $time = Time::Piece->new();

# Given a date, lets say "2016-04-01".

my $date1 = "2016-04-01";
my $date2 = "2016-03-25";

print "Week 1 of April";
print "Week 4 of March";