#!/usr/bin/perl -slw

use strict;
use warnings;
use Class::Date qw(date);

my $date = new Class::Date;
print "from_date:  ",  date("2010-06-01");
print "mid_date1:  ",  date("2010-06-01") + '3M' + '1D ' - '1D';
print "mid_date2:  ",  date("2010-06-01") + '3M' + '1D';
print "to_date:    ", date("2010-06-01") + '7M';