use warnings; use strict;
use Date::Manip::Date 6.30; 
my $today = Date::Manip::Date->new("today");
my $month_first = $today->new($today->printf("%Y-%m-01"));
my $next_month_first = $month_first->calc($today->new_delta("+1 month"));
my $offset = $today->new_delta("+1 day");
for (my $day = $month_first; 
	$day->cmp($next_month_first) < 0;
	$day = $day->calc($offset))
{
	print $day->printf("%m/%d/%Y\n");
}
__END__

##</code><code>##

04/01/2014
04/02/2014
04/03/2014
04/04/2014
04/05/2014
04/06/2014
04/07/2014
04/08/2014
04/09/2014
04/10/2014
04/11/2014
04/12/2014
04/13/2014
04/14/2014
04/15/2014
04/16/2014
04/17/2014
04/18/2014
04/19/2014
04/20/2014
04/21/2014
04/22/2014
04/23/2014
04/24/2014
04/25/2014
04/26/2014
04/27/2014
04/28/2014
04/29/2014
04/30/2014