Gente, paso un código que me gustaría saber si se puede optimizar... y compartir de paso la idea: es realizar un bucle sobre todos los días del mes en curso... para luego realizar un query sobre cada día.
Como buen scout, seguramente sobrarán partes, pero bueno funciona así de cutre, el pobre; me gustaría ver otras opciones...
Debajo copio el resultado...
use strict;
use Date::Calc qw(Add_Delta_Days);
use Date::Calc qw(Add_Delta_YMD);
use POSIX qw(strftime);
use Time::Local; ...