use DateTime;

my $date = DateTime->today;
$date->subtract( days => 1 );

warn "Yesterday's date is " . $date->dmy('-') . "\n";