#!perl
use strict;
use warnings;

use Date::Manip;

local $\ = "\n";
Date_Init('TZ=US/Mountain');

my $month = UnixDate('last month', '%B');
my @dates = ParseRecur("every day in $month");

print UnixDate($_, '%D') for @dates;