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__