Errr ... what happens when it is the first of the month? Perhaps you'd be better off looking at the timelocal function of Time::Local and localtime, converting to an epoch value, decrementing by 86400 then converting back.

Cheers,

JohnGG