use strict; use warnings; use DateTime; my $dt = DateTime->now; $dt->subtract( days => 1 ); my $curLogDate = $dt->year . '0' . $dt->mon . '0' . $dt->mday;