use warnings; use strict; use Date::Calc::Object; my $date = Date::Calc->today - 1;